home *** CD-ROM | disk | FTP | other *** search
/ Dictionaries & Language / Dictionaries and Language (Chestnut CD-ROM) (1993).iso / spanish / span / blank.bas (.txt) next >
Encoding:
GW-BASIC  |  1980-01-01  |  47.5 KB  |  1,976 lines
  1. 105  LOCATE 25,1:PRINT"ENTER EACH WORD. INGRESAR CADA PALABRA."
  2. 110  COLOR 6
  3. 120  DIM A$(100)
  4. 130  A$(1)="ABACK
  5. 140  A$(2)="ATRAS
  6. 150  A$(3)="ABANDON
  7. 160  A$(4)="ABANDONAR
  8. 170  A$(5)="ABHOR
  9. 180  A$(6)="ABORRECER
  10. 190  A$(7)="ABIDE
  11. 200  A$(8)="SOSTENER
  12. 210  A$(9)="ABILITY
  13. 220  A$(10)="APTITUD
  14. 230  A$(11)="ABSENCE
  15. 240  A$(12)="AUSENCIA
  16. 250  A$(13)="ABSENT
  17. 260  A$(14)="AUSENTE
  18. 270  A$(15)="ABSOLUTE
  19. 280  A$(16)="ABSOLUTO
  20. 290  A$(17)="ABSOLUTELY
  21. 300  A$(18)="ABSOLUTAMENTE
  22. 310  A$(19)="ABSURD
  23. 320  A$(20)="ABSURDO
  24. 330  A$(21)="ABUSE
  25. 340  A$(22)="ABUSAR
  26. 350  A$(23)="ACCIDENT
  27. 360  A$(24)="ACCIDENTE
  28. 370  A$(25)="ACCOMMODATE
  29. 380  A$(26)="ACOMODAR
  30. 390  A$(27)="ACCOMPANY
  31. 400  A$(28)="ACOMPANAR
  32. 410  A$(29)="ACCOUNT
  33. 420  A$(30)="CUENTA
  34. 430  A$(31)="ACCURACY
  35. 440  A$(32)="EXACTITUD
  36. 450  A$(33)="ACCUSE
  37. 460  A$(34)="ACUSAR
  38. 470  A$(35)="ACHIEVE
  39. 480  A$(36)="LOGRAR
  40. 490  A$(37)="ADD
  41. 500  A$(38)="ANADIR
  42. 510  A$(39)="ADMIRE
  43. 520  A$(40)="ADMIRAR
  44. 530  A$(41)="ADMIT
  45. 540  A$(42)="ADMITIR
  46. 550  A$(43)="ADULT
  47. 560  A$(44)="ADULTO
  48. 570  A$(45)="ADVANCE
  49. 580  A$(46)="AVANZAR
  50. 590  A$(47)="ADVANTAGE
  51. 600  A$(48)="VENTAJA
  52. 610  A$(49)="ADVERSARY
  53. 620  A$(50)="ADVERSARIO
  54. 630  A$(51)="ADVICE
  55. 640  A$(52)="CONSEJO
  56. 650  A$(53)="AFFFECT
  57. 660  A$(54)="AFECTAR
  58. 670  A$(55)="AGO
  59. 680  A$(56)="HACE
  60. 690  A$(57)="AGREE
  61. 700  A$(58)="CONCORDAR
  62. 710  A$(59)="AHEAD
  63. 720  A$(60)="DELANTE
  64. 730  A$(61)="AIR
  65. 740  A$(62)="AIRE
  66. 750  A$(63)="ALERT
  67. 760  A$(64)="VIVO
  68. 770  A$(65)="ALLOW
  69. 780  A$(66)="PERMITIR
  70. 790  A$(67)="ALONE
  71. 800  A$(68)="SOLO
  72. 810  A$(69)="AMOUNT
  73. 820  A$(70)="CANTIDAD
  74. 830  A$(71)="ANGER
  75. 840  A$(72)="IRA
  76. 850  A$(73)="ANGRY
  77. 860  A$(74)="FURIOSO
  78. 870  A$(75)="ANNOUNCE
  79. 880  A$(76)="ANUNCIAR
  80. 890  A$(77)="APOLOGY
  81. 900  A$(78)="DISCULPA
  82. 910  A$(79)="APPOINT
  83. 920  A$(80)="SENALAR
  84. 930  A$(81)="APRIL
  85. 940  A$(82)="ABRIL
  86. 950  A$(83)="ARISE
  87. 960  A$(84)="SURGIR
  88. 970  A$(85)="ARRANGE
  89. 980  A$(86)="ARREGLAR
  90. 990  A$(87)="ASSUME
  91. 1000  A$(88)="ASUMIR
  92. 1010  A$(89)="ASSURE
  93. 1020  A$(90)="ASEGURAR
  94. 1030  A$(91)="ATTACK
  95. 1040  A$(92)="ATACAR
  96. 1050  A$(93)="ATTEMPT
  97. 1060  A$(94)="INTENTAR
  98. 1070  A$(95)="ATTRACT
  99. 1080  A$(96)="ATRAER
  100. 1090  A$(97)="AUGUST
  101. 1100  A$(98)="AGOSTO
  102. 1110  DIM B$(100)
  103. 1120  B$(1)="AVERAGE
  104. 1130  B$(2)="PROMEDIO
  105. 1140  B$(3)="AVOID
  106. 1150  B$(4)="EVITAR
  107. 1160  B$(5)="AWAKE
  108. 1170  B$(6)="DESPERTAR
  109. 1180  B$(7)="AWARE
  110. 1190  B$(8)="SABEDOR
  111. 1200  B$(9)="BANK
  112. 1210  B$(10)="BANCA
  113. 1220  B$(11)="BATH
  114. 1230  B$(12)="BANO
  115. 1240  B$(13)="BEACH
  116. 1250  B$(14)="PLAYA
  117. 1260  B$(15)="BECAUSE
  118. 1270  B$(16)="PORQUE
  119. 1280  B$(17)="BEHAVE
  120. 1290  B$(18)="PORTARSE
  121. 1300  B$(19)="BEING
  122. 1310  B$(20)="SER
  123. 1320  B$(21)="BELOW
  124. 1330  B$(22)="ABAJO
  125. 1340  B$(23)="BENEATH
  126. 1350  B$(24)="DEBAJO
  127. 1360  B$(25)="BEST
  128. 1370  B$(26)="MEJOR
  129. 1380  B$(27)="BEWARE
  130. 1390  B$(28)="PRECAVERSE
  131. 1400  B$(29)="BIRTH
  132. 1410  B$(30)="NACIMIENTO
  133. 1420  B$(31)="BIRTHDAY
  134. 1430  B$(32)="CUMPLEANOS
  135. 1440  B$(33)="BLACK
  136. 1450  B$(34)="NEGRO
  137. 1460  B$(35)="BLOOD
  138. 1470  B$(36)="SANGRE
  139. 1480  B$(37)="BLUE
  140. 1490  B$(38)="AZUL
  141. 1500  B$(39)="BOAST
  142. 1510  B$(40)="OSTENTAR
  143. 1520  B$(41)="BODY
  144. 1530  B$(42)="CUERPO
  145. 1540  B$(43)="BOLD
  146. 1550  B$(44)="ATREVIDO
  147. 1560  B$(45)="BOOK
  148. 1570  B$(46)="LIBRO
  149. 1580  B$(47)="BORE
  150. 1590  B$(48)="ABURRIR
  151. 1600  B$(49)="BORING
  152. 1610  B$(50)="ABURRIDO
  153. 1620  B$(51)="BOTTOM
  154. 1630  B$(52)="FONDO
  155. 1640  B$(53)="BRAIN
  156. 1650  B$(54)="CEREBRO
  157. 1660  B$(55)="BRAVE
  158. 1670  B$(56)="VALIENTE
  159. 1680  B$(57)="BROKE
  160. 1690  B$(58)="ARRUINADO
  161. 1700  B$(59)="BURDEN
  162. 1710  B$(60)="CARGA
  163. 1720  B$(61)="BUSINESS
  164. 1730  B$(62)="NEGOCIO
  165. 1740  B$(63)="CALM
  166. 1750  B$(64)="SERENO
  167. 1760  B$(65)="CASE
  168. 1770  B$(66)="CAJA
  169. 1780  B$(67)="CHAIR
  170. 1790  B$(68)="SILLA
  171. 1800  B$(69)="CHALLENGE
  172. 1810  B$(70)="DESAFIO
  173. 1820  B$(71)="CHANCE
  174. 1830  B$(72)="CASUALIDAD
  175. 1840  B$(73)="CHEAT
  176. 1850  B$(74)="ENGANAR
  177. 1860  B$(75)="CHOIR
  178. 1870  B$(76)="CORO
  179. 1880  B$(77)="CIRCLE
  180. 1890  B$(78)="CIRCULO
  181. 1900  B$(79)="CITY
  182. 1910  B$(80)="CIUDAD
  183. 1920  B$(81)="CLAIM
  184. 1930  B$(82)="RECLAMAR
  185. 1940  B$(83)="CLASS
  186. 1950  B$(84)="CLASE
  187. 1960  B$(85)="CLOSE
  188. 1970  B$(86)="CERRADO
  189. 1980  B$(87)="COFFEE
  190. 1990  B$(88)="CAFE
  191. 2000  B$(89)="MEN
  192. 2010  B$(90)="HOMBRES
  193. 2020  B$(91)="COLLECT
  194. 2030  B$(92)="RECOGER
  195. 2040  B$(93)="COMMAND
  196. 2050  B$(94)="MANDAR
  197. 2060  B$(95)="COMMENT
  198. 2070  B$(96)="COMENTARIO
  199. 2080  B$(97)="COMMIT
  200. 2090  B$(98)="COMETER
  201. 2100  DIM C$(100)
  202. 2110  C$(1)="COMPANY
  203. 2120  C$(2)="COMPANIA
  204. 2130  C$(3)="COMPLAIN
  205. 2140  C$(4)="QUEJARSE
  206. 2150  C$(5)="COMPLETE
  207. 2160  C$(6)="COMPLETO
  208. 2170  C$(7)="CONCERN
  209. 2180  C$(8)="INTERES
  210. 2190  C$(9)="CONDEMN
  211. 2200  C$(10)="CONDENAR
  212. 2210  C$(11)="CONFESS
  213. 2220  C$(12)="CONFESAR
  214. 2230  C$(13)="CONFUSE
  215. 2240  C$(14)="CONFUNDIR
  216. 2250  C$(15)="CONFUSION
  217. 2260  C$(16)="CONFUSION
  218. 2270  C$(17)="CONNECT
  219. 2280  C$(18)="JUNTAR
  220. 2290  C$(19)="CONSECRATE
  221. 2300  C$(20)="CONSAGRAR
  222. 2310  C$(21)="CONSIDER
  223. 2320  C$(22)="CONSIDERAR
  224. 2330  C$(23)="CONTACT
  225. 2340  C$(24)="CONTACTO
  226. 2350  C$(25)="CONTAIN
  227. 2360  C$(26)="CONTENER
  228. 2370  C$(27)="CONTINUE
  229. 2380  C$(28)="CONTINUAR
  230. 2390  C$(29)="CONTROL
  231. 2400  C$(30)="CONTROLAR
  232. 2410  C$(31)="CORRECT
  233. 2420  C$(32)="CORRECTO
  234. 2430  C$(33)="COUNT
  235. 2440  C$(34)="CONTAR
  236. 2450  C$(35)="COUNTRY
  237. 2460  C$(36)="PAIS
  238. 2470  C$(37)="COURAGE
  239. 2480  C$(38)="VALOR
  240. 2490  C$(39)="COVER
  241. 2500  C$(40)="CUBRIR
  242. 2510  C$(41)="CROSS
  243. 2520  C$(42)="CRUZ
  244. 2530  C$(43)="CRY
  245. 2540  C$(44)="GRITAR
  246. 2550  C$(45)="CUT
  247. 2560  C$(46)="CORTAR
  248. 2570  C$(47)="DAILY
  249. 2580  C$(48)="DIARIO
  250. 2590  C$(49)="DANCE
  251. 2600  C$(50)="DANZA
  252. 2610  C$(51)="DANCING
  253. 2620  C$(52)="BAILE
  254. 2630  C$(53)="DATE
  255. 2640  C$(54)="DATIL
  256. 2650  C$(55)="DAUGHTER
  257. 2660  C$(56)="HIJA
  258. 2670  C$(57)="DECEMBER
  259. 2680  C$(58)="DICIEMBRE
  260. 2690  C$(59)="DECENT
  261. 2700  C$(60)="DECENTE
  262. 2710  C$(61)="DECIDE
  263. 2720  C$(62)="RESOLVER
  264. 2730  C$(63)="DECIDE
  265. 2740  C$(64)="DECIDIR
  266. 2750  C$(65)="DECLARE
  267. 2760  C$(66)="DECLARAR
  268. 2770  C$(67)="DEDICATE
  269. 2780  C$(68)="DEDICAR
  270. 2790  C$(69)="DEDICATION
  271. 2800  C$(70)="DEDICACION
  272. 2810  C$(71)="DENY
  273. 2820  C$(72)="DENEGAR
  274. 2830  C$(73)="DEPART
  275. 2840  C$(74)="SALIR
  276. 2850  C$(75)="DESIRE
  277. 2860  C$(76)="DESEO
  278. 2870  C$(77)="DESTINY
  279. 2880  C$(78)="DESTINO
  280. 2890  C$(79)="DESTROY
  281. 2900  C$(80)="DESTRUIR
  282. 2910  C$(81)="DESTRUCTION
  283. 2920  C$(82)="DESTRUCCION
  284. 2930  C$(83)="DISAGREE
  285. 2940  C$(84)="DISENTIR
  286. 2950  C$(85)="DISASTER
  287. 2960  C$(86)="DESASTRE
  288. 2970  C$(87)="DISBELIEVE
  289. 2980  C$(88)="DESCREER
  290. 2990  C$(89)="DISCERN
  291. 3000  C$(90)="DISCERNIR
  292. 3010  C$(91)="DISEASE
  293. 3020  C$(92)="DOLENCIA
  294. 3030  C$(93)="DISGRACE
  295. 3040  C$(94)="DESHONRA
  296. 3050  C$(95)="DISH
  297. 3060  C$(96)="PLATO
  298. 3070  C$(97)="DISOBEDIENT
  299. 3080  C$(98)="DESOBEDIENTE
  300. 3090  DIM D$(100)
  301. 3100  D$(1)="DIVIDE
  302. 3110  D$(2)="DIVIDIR
  303. 3120  D$(3)="DIVINE
  304. 3130  D$(4)="DIVINO
  305. 3140  D$(5)="DONATE
  306. 3150  D$(6)="DONAR
  307. 3160  D$(7)="DONATION
  308. 3170  D$(8)="DONACION
  309. 3180  D$(9)="DOUBT
  310. 3190  D$(10)="DUDA
  311. 3200  D$(11)="RESTAURANT
  312. 3210  D$(12)="RESTAURANTE
  313. 3220  D$(13)="DUTY
  314. 3230  D$(14)="DEBER
  315. 3240  D$(15)="DYING
  316. 3250  D$(16)="MORIBUNDO
  317. 3260  D$(17)="EAR
  318. 3270  D$(18)="OREJA
  319. 3280  D$(19)="EARLY
  320. 3290  D$(20)="TEMPRANO
  321. 3300  D$(21)="EARN
  322. 3310  D$(22)="GANAR
  323. 3320  D$(23)="EFFORT
  324. 3330  D$(24)="ESFUERZO
  325. 3340  D$(25)="EMBARRASS
  326. 3350  D$(26)="EMBARAZAR
  327. 3360  D$(27)="EMBARRASSING
  328. 3370  D$(28)="MOLESTO
  329. 3380  D$(29)="EMBRACE
  330. 3390  D$(30)="ABRAZAR
  331. 3400  D$(31)="EMOTION
  332. 3410  D$(32)="EMOCION
  333. 3420  D$(33)="ENCOURAGE
  334. 3430  D$(34)="ANIMAR
  335. 3440  D$(35)="ENCOURAGEMENT
  336. 3450  D$(36)="ESTIMULO
  337. 3460  D$(37)="ENTIRE
  338. 3470  D$(38)="ENTERO
  339. 3480  D$(39)="ENVY
  340. 3490  D$(40)="ENVIDIAR
  341. 3500  D$(41)="EQUAL
  342. 3510  D$(42)="IGUAL
  343. 3520  D$(43)="ERR
  344. 3530  D$(44)="ERRAR
  345. 3540  D$(45)="ERROR
  346. 3550  D$(46)="ERROR
  347. 3560  D$(47)="ESPECIALLY
  348. 3570  D$(48)="ESPECIALMENTE
  349. 3580  D$(49)="EVENING
  350. 3590  D$(50)="TARDE
  351. 3600  D$(51)="EXACT
  352. 3610  D$(52)="EXACTO
  353. 3620  D$(53)="EXCHANGE
  354. 3630  D$(54)="CAMBIAR
  355. 3640  D$(55)="EXIST
  356. 3650  D$(56)="EXISTIR
  357. 3660  D$(57)="EXIT
  358. 3670  D$(58)="SALIDA
  359. 3680  D$(59)="EXPERIENCE
  360. 3690  D$(60)="EXPERIENCIA
  361. 3700  D$(61)="FALSE
  362. 3710  D$(62)="FALSO
  363. 3720  D$(63)="FAT
  364. 3730  D$(64)="GRASO
  365. 3740  D$(65)="FEBRUARY
  366. 3750  D$(66)="FEBRERO
  367. 3760  D$(67)="FIGHT
  368. 3770  D$(68)="LUCHA
  369. 3780  D$(69)="FILL
  370. 3790  D$(70)="LLENAR
  371. 3800  D$(71)="FILTH
  372. 3810  D$(72)="SUCIEDAD
  373. 3820  D$(73)="FIND
  374. 3830  D$(74)="HALLAR
  375. 3840  D$(75)="FIT
  376. 3850  D$(76)="APTO
  377. 3860  D$(77)="FLESH
  378. 3870  D$(78)="CARNE
  379. 3880  D$(79)="FLOOR
  380. 3890  D$(80)="SUELO
  381. 3900  D$(81)="FOOD
  382. 3910  D$(82)="ALIMENTO
  383. 3920  D$(83)="FOOL
  384. 3930  D$(84)="TONTO
  385. 3940  D$(85)="FORCE
  386. 3950  D$(86)="FORZAR
  387. 3960  D$(87)="FORSAKE
  388. 3970  D$(88)="ABANDONAR
  389. 3980  D$(89)="FOUND
  390. 3990  D$(90)="FUNDAR
  391. 4000  D$(91)="FRIGHTEN
  392. 4010  D$(92)="AUSUSTAR
  393. 4020  D$(93)="FRUSTRATE
  394. 4030  D$(94)="FRUSTRAR
  395. 4040  D$(95)="FRUSTRATION
  396. 4050  D$(96)="FRUSTRACION
  397. 4060  D$(97)="FULL
  398. 4070  D$(98)="LLENO
  399. 4080  DIM E$(100)
  400. 4090  E$(1)="FUN
  401. 4100  E$(2)="DIVERSION
  402. 4110  E$(3)="FUTURE
  403. 4120  E$(4)="FUTURO
  404. 4130  E$(5)="GAIN
  405. 4140  E$(6)="GANAR
  406. 4150  E$(7)="GENTLE
  407. 4160  E$(8)="SUAVE
  408. 4170  E$(9)="GLAD
  409. 4180  E$(10)="CONTENTO
  410. 4190  E$(11)="GLORIFY
  411. 4200  E$(12)="GLORIFICAR
  412. 4210  E$(13)="GLORY
  413. 4220  E$(14)="GLORIA
  414. 4230  E$(15)="GOLD
  415. 4240  E$(16)="ORO
  416. 4250  E$(17)="GRACE
  417. 4260  E$(18)="GRACIA
  418. 4270  E$(19)="GREET
  419. 4280  E$(20)="SALUDAR
  420. 4290  E$(21)="GUARD
  421. 4300  E$(22)="GUARDAR
  422. 4310  E$(23)="GUEST
  423. 4320  E$(24)="HUESPED
  424. 4330  E$(25)="HARM
  425. 4340  E$(26)="DANO
  426. 4350  E$(27)="HEAD
  427. 4360  E$(28)="CABEZA
  428. 4370  E$(29)="HEAL
  429. 4380  E$(30)="CURAR
  430. 4390  E$(31)="HEAR
  431. 4400  E$(32)="OIR
  432. 4410  E$(33)="HEART
  433. 4420  E$(34)="ENTRANAS
  434. 4430  E$(35)="HEAT
  435. 4440  E$(36)="CALOR
  436. 4450  E$(37)="HEATHEN
  437. 4460  E$(38)="PAGANO
  438. 4470  E$(39)="HEIR
  439. 4480  E$(40)="HEREDERO
  440. 4490  E$(41)="HIDING
  441. 4500  E$(42)="ZURRA
  442. 4510  E$(43)="HIRE
  443. 4520  E$(44)="ALQUILAR
  444. 4530  E$(45)="HOLINESS
  445. 4540  E$(46)="SANTIDAD
  446. 4550  E$(47)="HONEST
  447. 4560  E$(48)="HONRADO
  448. 4570  E$(49)="HOTEL
  449. 4580  E$(50)="HOTEL
  450. 4590  E$(51)="HUMAN
  451. 4600  E$(52)="HUMANO
  452. 4610  E$(53)="HUSBAND
  453. 4620  E$(54)="ESPOSO
  454. 4630  E$(55)="ILL
  455. 4640  E$(56)="ENFERMO
  456. 4650  E$(57)="IMPROVE
  457. 4660  E$(58)="MEJORAR
  458. 4670  E$(59)="INCITE
  459. 4680  E$(60)="INCITAR
  460. 4690  E$(61)="INCREASE
  461. 4700  E$(62)="AUMENTAR
  462. 4710  E$(63)="INDULGE
  463. 4720  E$(64)="CONSENTIR
  464. 4730  E$(65)="INFANCY
  465. 4740  E$(66)="INFANCIA
  466. 4750  E$(67)="INFANT
  467. 4760  E$(68)="CRIATURA
  468. 4770  E$(69)="INHERIT
  469. 4780  E$(70)="HEREDAR
  470. 4790  E$(71)="INJURE
  471. 4800  E$(72)="INJURIAR
  472. 4810  E$(73)="INJURY
  473. 4820  E$(74)="HERIDA
  474. 4830  E$(75)="INSTRUCT
  475. 4840  E$(76)="INSTRUIR
  476. 4850  E$(77)="INSTRUCTION
  477. 4860  E$(78)="INSTRUCCION
  478. 4870  E$(79)="INTEND
  479. 4880  E$(80)="INTENTAR
  480. 4890  E$(81)="INTEREST
  481. 4900  E$(82)="INTERES
  482. 4910  E$(83)="ISSUE
  483. 4920  E$(84)="PROBLEMA
  484. 4930  E$(85)="JAIL
  485. 4940  E$(86)="CARCEL
  486. 4950  E$(87)="JANUARY
  487. 4960  E$(88)="ENERO
  488. 4970  E$(89)="JOINT
  489. 4980  E$(90)="JUNTA
  490. 4990  E$(91)="JOY
  491. 5000  E$(92)="ALEGRIA
  492. 5010  E$(93)="JULY
  493. 5020  E$(94)="JULIO
  494. 5030  E$(95)="JUNE
  495. 5040  E$(96)="JUNIO
  496. 5050  E$(97)="JUST
  497. 5060  E$(98)="JUSTO
  498. 5070  DIM F$(100)
  499. 5080  F$(1)="JUSTIFY
  500. 5090  F$(2)="JUSTIFICAR
  501. 5100  F$(3)="KIND
  502. 5110  F$(4)="AMABLE
  503. 5120  F$(5)="KINDNESS
  504. 5130  F$(6)="BONDAD
  505. 5140  F$(7)="LABOR
  506. 5150  F$(8)="LABOR
  507. 5160  F$(9)="LARGE
  508. 5170  F$(10)="GRANDE
  509. 5180  F$(11)="LEAD
  510. 5190  F$(12)="PLOMO
  511. 5200  F$(13)="LEAST
  512. 5210  F$(14)="MINIMO
  513. 5220  F$(15)="LEFT
  514. 5230  F$(16)="IZQUIERDO
  515. 5240  F$(17)="LIAR
  516. 5250  F$(18)="MENTIROSO
  517. 5260  F$(19)="LIGHT
  518. 5270  F$(20)="LUZ
  519. 5280  F$(21)="LIKING
  520. 5290  F$(22)="SIMPATIA
  521. 5300  F$(23)="LISTEN
  522. 5310  F$(24)="ESCUCHAR
  523. 5320  F$(25)="LIVING
  524. 5330  F$(26)="VIVO
  525. 5340  F$(27)="LOCATE
  526. 5350  F$(28)="SITUAR
  527. 5360  F$(29)="LONELY
  528. 5370  F$(30)="SOLITARIO
  529. 5380  F$(31)="LORD
  530. 5390  F$(32)="SENOR
  531. 5400  F$(33)="LOSE
  532. 5410  F$(34)="PERDER
  533. 5420  F$(35)="LOSS
  534. 5430  F$(36)="PERDIDA
  535. 5440  F$(37)="LOT
  536. 5450  F$(38)="LOTE
  537. 5460  F$(39)="LOUSY
  538. 5470  F$(40)="ASTROSO
  539. 5480  F$(41)="LOYAL
  540. 5490  F$(42)="LEAL
  541. 5500  F$(43)="MACHINE
  542. 5510  F$(44)="MAQUINA
  543. 5520  F$(45)="MAD
  544. 5530  F$(46)="FURIOSO
  545. 5540  F$(47)="MANIFEST
  546. 5550  F$(48)="MANIFESTAR
  547. 5560  F$(49)="MARCH
  548. 5570  F$(50)="MARZO
  549. 5580  F$(51)="MARK
  550. 5590  F$(52)="MARCA
  551. 5600  F$(53)="MASTER
  552. 5610  F$(54)="MAESTRO
  553. 5620  F$(55)="MATTER
  554. 5630  F$(56)="MATERIA
  555. 5640  F$(57)="MAY
  556. 5650  F$(58)="MAYO
  557. 5660  F$(59)="MAY
  558. 5670  F$(60)="PODER
  559. 5680  F$(61)="MEAL
  560. 5690  F$(62)="COMIDA
  561. 5700  F$(63)="MEANING
  562. 5710  F$(64)="SIGNIFICADO
  563. 5720  F$(65)="MEMORY
  564. 5730  F$(66)="MEMORIA
  565. 5740  F$(67)="MERCIFUL
  566. 5750  F$(68)="CLEMENTE
  567. 5760  F$(69)="MERCY
  568. 5770  F$(70)="PIEDAD
  569. 5780  F$(71)="MIGHT
  570. 5790  F$(72)="PODER
  571. 5800  F$(73)="MIGHTY
  572. 5810  F$(74)="PODEROSO
  573. 5820  F$(75)="MINISTER
  574. 5830  F$(76)="PASTOR
  575. 5840  F$(77)="MIGHT
  576. 5850  F$(78)="SUMAMENTE
  577. 5860  F$(79)="MINUTE
  578. 5870  F$(80)="MINUTO
  579. 5880  F$(81)="MIRACLE
  580. 5890  F$(82)="MILAGRO
  581. 5900  F$(83)="MISTAKE
  582. 5910  F$(84)="EQUIVOCACION
  583. 5920  F$(85)="MISUNDERSTANDING
  584. 5930  F$(86)="EQUIVOCACION
  585. 5940  F$(87)="MONDAY
  586. 5950  F$(88)="LUNES
  587. 5960  F$(89)="MONTH
  588. 5970  F$(90)="MES
  589. 5980  F$(91)="MUSIC
  590. 5990  F$(92)="MUSICA
  591. 6000  F$(93)="NEAR
  592. 6010  F$(94)="PROXIMO
  593. 6020  F$(95)="NEIGHBOUR
  594. 6030  F$(96)="VECINO
  595. 6040  F$(97)="NERVOUS
  596. 6050  F$(98)="NERVIOSO
  597. 6060  DIM G$(100)
  598. 6070  G$(1)="NEWS
  599. 6080  G$(2)="NOTICIA
  600. 6090  G$(3)="NOISE
  601. 6100  G$(4)="RUIDO
  602. 6110  G$(5)="NOISY
  603. 6120  G$(6)="RUIDOSO
  604. 6130  G$(7)="OBEDIENCE
  605. 6140  G$(8)="OBEDIENCIA
  606. 6150  G$(9)="OBEDIENT
  607. 6160  G$(10)="OBEDIENTE
  608. 6170  G$(11)="OBSCENE
  609. 6180  G$(12)="OBSCENO
  610. 6190  G$(13)="OBSERVE
  611. 6200  G$(14)="OBSERVAR
  612. 6210  G$(15)="OBTAIN
  613. 6220  G$(16)="OBTENER
  614. 6230  G$(17)="OCCASION
  615. 6240  G$(18)="OCASION
  616. 6250  G$(19)="OCTOBER
  617. 6260  G$(20)="OCTUBRE
  618. 6270  G$(21)="OFFER
  619. 6280  G$(22)="OFRECER
  620. 6290  G$(23)="OMIT
  621. 6300  G$(24)="OMITIR
  622. 6310  G$(25)="ONE
  623. 6320  G$(26)="UNO
  624. 6330  G$(27)="OPEN
  625. 6340  G$(28)="ABIERTO
  626. 6350  G$(29)="OWE
  627. 6360  G$(30)="DEBER
  628. 6370  G$(31)="OWN
  629. 6380  G$(32)="POSEER
  630. 6390  G$(33)="PATIENCE
  631. 6400  G$(34)="PACIENCIA
  632. 6410  G$(35)="PATIENT
  633. 6420  G$(36)="PACIENTE
  634. 6430  G$(37)="PERFECT
  635. 6440  G$(38)="PERFECTO
  636. 6450  G$(39)="PERHAPS
  637. 6460  G$(40)="QUIZA
  638. 6470  G$(41)="PERISH
  639. 6480  G$(42)="PERECER
  640. 6490  G$(43)="PERSECUTE
  641. 6500  G$(44)="PERSEGUIR
  642. 6510  G$(45)="PITY
  643. 6520  G$(46)="PIEDAD
  644. 6530  G$(47)="PLACE
  645. 6540  G$(48)="LUGAR
  646. 6550  G$(49)="POPULATE
  647. 6560  G$(50)="POBLAR
  648. 6570  G$(51)="POPULATION
  649. 6580  G$(52)="POBLACION
  650. 6590  G$(53)="POWER
  651. 6600  G$(54)="PODER
  652. 6610  G$(55)="PREFER
  653. 6620  G$(56)="PREFERIR
  654. 6630  G$(57)="PRESENCE
  655. 6640  G$(58)="PRESENCIA
  656. 6650  G$(59)="PRESENT
  657. 6660  G$(60)="REGALO
  658. 6670  G$(61)="PRETEND
  659. 6680  G$(62)="APARANTAR
  660. 6690  G$(63)="PRICE
  661. 6700  G$(64)="PRECIO
  662. 6710  G$(65)="PRIDE
  663. 6720  G$(66)="ORGULLO
  664. 6730  G$(67)="PRIVATE
  665. 6740  G$(68)="PRIVADO
  666. 6750  G$(69)="PROBLEM
  667. 6760  G$(70)="PROBLEMA
  668. 6770  G$(71)="PROCLAIM
  669. 6780  G$(72)="PROCLAMAR
  670. 6790  G$(73)="PRODUCE
  671. 6800  G$(74)="PRODUCIR
  672. 6810  G$(75)="PROFANE
  673. 6820  G$(76)="PROFANAR
  674. 6830  G$(77)="PROFESS
  675. 6840  G$(78)="PROFESAR
  676. 6850  G$(79)="PROFESSION
  677. 6860  G$(80)="PROFESION
  678. 6870  G$(81)="PROGRESS
  679. 6880  G$(82)="PROGRESO
  680. 6890  G$(83)="PROMISE
  681. 6900  G$(84)="PROMESA
  682. 6910  G$(85)="PROOF
  683. 6920  G$(86)="COMPROBACION
  684. 6930  G$(87)="PROPHECY
  685. 6940  G$(88)="PROFECIA
  686. 6950  G$(89)="PROPHESY
  687. 6960  G$(90)="PROFETIZAR
  688. 6970  G$(91)="PROSPER
  689. 6980  G$(92)="PROSPERAR
  690. 6990  G$(93)="PROSPERITY
  691. 7000  G$(94)="PROSPERIDAD
  692. 7010  G$(95)="PROUD
  693. 7020  G$(96)="ORGULLOSO
  694. 7030  G$(97)="PROVERB
  695. 7040  G$(98)="PROVERBIO
  696. 7050  DIM H$(100)
  697. 7060  H$(1)="PROVIDE
  698. 7070  H$(2)="PROVEER
  699. 7080  H$(3)="PSALM
  700. 7090  H$(4)="SALMO
  701. 7100  H$(5)="PUBLIC
  702. 7110  H$(6)="PUBLICO
  703. 7120  H$(7)="PULL
  704. 7130  H$(8)="TIRAR
  705. 7140  H$(9)="PUNISH
  706. 7150  H$(10)="CASTIGAR
  707. 7160  H$(11)="PURE
  708. 7170  H$(12)="PURO
  709. 7180  H$(13)="QUICK
  710. 7190  H$(14)="RAPIDO
  711. 7200  H$(15)="QUIET
  712. 7210  H$(16)="QUIETO
  713. 7220  H$(17)="RAISE
  714. 7230  H$(18)="ELEVAR
  715. 7240  H$(19)="RATHER
  716. 7250  H$(20)="ANTES
  717. 7260  H$(21)="REACT
  718. 7270  H$(22)="REACCIONAR
  719. 7280  H$(23)="READ
  720. 7290  H$(24)="LEER
  721. 7300  H$(25)="READING
  722. 7310  H$(26)="LECTURA
  723. 7320  H$(27)="READY
  724. 7330  H$(28)="LISTO
  725. 7340  H$(29)="REAP
  726. 7350  H$(30)="SEGAR
  727. 7360  H$(31)="REBEL
  728. 7370  H$(32)="SUBLEVARSE
  729. 7380  H$(33)="RECENT
  730. 7390  H$(34)="RECIENTE
  731. 7400  H$(35)="RECENTLY
  732. 7410  H$(36)="RECIENTEMENTE
  733. 7420  H$(37)="RECITE
  734. 7430  H$(38)="RECITAR
  735. 7440  H$(39)="RECKON
  736. 7450  H$(40)="CONTAR
  737. 7460  H$(41)="RECOVER
  738. 7470  H$(42)="RECUPERAR
  739. 7480  H$(43)="RECOVERY
  740. 7490  H$(44)="RECUPERACION
  741. 7500  H$(45)="REDEEM
  742. 7510  H$(46)="REDIMIR
  743. 7520  H$(47)="REDEEMER
  744. 7530  H$(48)="SALVADOR
  745. 7540  H$(49)="REFUSE
  746. 7550  H$(50)="DENEGAR
  747. 7560  H$(51)="RELAX
  748. 7570  H$(52)="RELAJAR
  749. 7580  H$(53)="RELEASE
  750. 7590  H$(54)="LEBERAR
  751. 7600  H$(55)="RELIABLE
  752. 7610  H$(56)="SEGURO
  753. 7620  H$(57)="RELIGION
  754. 7630  H$(58)="RELIGION
  755. 7640  H$(59)="REMAIN
  756. 7650  H$(60)="QUEDAR
  757. 7660  H$(61)="REPEAT
  758. 7670  H$(62)="REPETIR
  759. 7680  H$(63)="REPROOF
  760. 7690  H$(64)="REPROCHE
  761. 7700  H$(65)="REPROVE
  762. 7710  H$(66)="REPROBAR
  763. 7720  H$(67)="REQUEST
  764. 7730  H$(68)="SOLICITAR
  765. 7740  H$(69)="REQUIRE
  766. 7750  H$(70)="REQUERIR
  767. 7760  H$(71)="REQUIREMENT
  768. 7770  H$(72)="REQUERIMIENTO
  769. 7780  H$(73)="RESIST
  770. 7790  H$(74)="RESISTIR
  771. 7800  H$(75)="REST
  772. 7810  H$(76)="RESTO
  773. 7820  H$(77)="RESTORE
  774. 7830  H$(78)="RESTAURAR
  775. 7840  H$(79)="RESURRECT
  776. 7850  H$(80)="RESUCITAR
  777. 7860  H$(81)="RESURRECTION
  778. 7870  H$(82)="RESURRECCION
  779. 7880  H$(83)="RETIRE
  780. 7890  H$(84)="RETIRAR
  781. 7900  H$(85)="REVEAL
  782. 7910  H$(86)="REVELAR
  783. 7920  H$(87)="REVERENCE
  784. 7930  H$(88)="REVERENCIA
  785. 7940  H$(89)="REVERENCE
  786. 7950  H$(90)="REVERENCIAR
  787. 7960  H$(91)="REVERENT
  788. 7970  H$(92)="REVERENTE
  789. 7980  H$(93)="RICH
  790. 7990  H$(94)="RICO
  791. 8000  H$(95)="RIDE
  792. 8010  H$(96)="RODAR
  793. 8020  H$(97)="ROOM
  794. 8030  H$(98)="CUARTO
  795. 8040  DIM I$(100)
  796. 8050  I$(1)="ROUND
  797. 8060  I$(2)="ROTUNDO
  798. 8070  I$(3)="RULE
  799. 8080  I$(4)="MANDO
  800. 8090  I$(5)="RULER
  801. 8100  I$(6)="GOBERNADOR
  802. 8110  I$(7)="RUN
  803. 8120  I$(8)="CORRER
  804. 8130  I$(9)="SACRED
  805. 8140  I$(10)="SAGRADO
  806. 8150  I$(11)="SACRIFICE
  807. 8160  I$(12)="SACRIFICIO
  808. 8170  I$(13)="SAFETY
  809. 8180  I$(14)="SEGURIDAD
  810. 8190  I$(15)="SAINT
  811. 8200  I$(16)="SANTO
  812. 8210  I$(17)="SALVATION
  813. 8220  I$(18)="SALVACION
  814. 8230  I$(19)="SANCTIFY
  815. 8240  I$(20)="SANTIFICAR
  816. 8250  I$(21)="SANCTUARY
  817. 8260  I$(22)="SANTUARIO
  818. 8270  I$(23)="SATISFY
  819. 8280  I$(24)="SATISFACER
  820. 8290  I$(25)="SATURDAY
  821. 8300  I$(26)="SABADO
  822. 8310  I$(27)="SCHOOL
  823. 8320  I$(28)="ESCUELA
  824. 8330  I$(29)="SEA
  825. 8340  I$(30)="OCEANO
  826. 8350  I$(31)="SEARCH
  827. 8360  I$(32)="BUSCAR
  828. 8370  I$(33)="SECOND
  829. 8380  I$(34)="SEGUNDO
  830. 8390  I$(35)="SECRET
  831. 8400  I$(36)="SECRETO
  832. 8410  I$(37)="SEE
  833. 8420  I$(38)="SEDE
  834. 8430  I$(39)="SELL
  835. 8440  I$(40)="VENDER
  836. 8450  I$(41)="SEPTEMBER
  837. 8460  I$(42)="SEPTIEMBRE
  838. 8470  I$(43)="SERMON
  839. 8480  I$(44)="SERMON
  840. 8490  I$(45)="SERVANT
  841. 8500  I$(46)="CRIADO
  842. 8510  I$(47)="SERVE
  843. 8520  I$(48)="SERVIR
  844. 8530  I$(49)="SERVERAL
  845. 8540  I$(50)="VARIOS
  846. 8550  I$(51)="SHOULD
  847. 8560  I$(52)="...
  848. 8570  I$(53)="SIDE
  849. 8580  I$(54)="LADO
  850. 8590  I$(55)="SINCERE
  851. 8600  I$(56)="SINCERO
  852. 8610  I$(57)="SINCERITY
  853. 8620  I$(58)="SINCERIDAD
  854. 8630  I$(59)="SINNER
  855. 8640  I$(60)="PECADOR
  856. 8650  I$(61)="SITUATION
  857. 8660  I$(62)="SITUACION
  858. 8670  I$(63)="SLAVE
  859. 8680  I$(64)="ESCLAVO
  860. 8690  I$(65)="SMILE
  861. 8700  I$(66)="SONREIR
  862. 8710  I$(67)="SMILING
  863. 8720  I$(68)="RISUENO
  864. 8730  I$(69)="SMOKE
  865. 8740  I$(70)="FUMAR
  866. 8750  I$(71)="SORRY
  867. 8760  I$(72)="SENTIR
  868. 8770  I$(73)="SOUL
  869. 8780  I$(74)="ALMA
  870. 8790  I$(75)="SPIRIT
  871. 8800  I$(76)="ESPIRITU
  872. 8810  I$(77)="SPIRITUAL
  873. 8820  I$(78)="ESPIRITUAL
  874. 8830  I$(79)="SPOKE
  875. 8840  I$(80)="RAYO
  876. 8850  I$(81)="STAND
  877. 8860  I$(82)="PUESTO
  878. 8870  I$(83)="STATE
  879. 8880  I$(84)="ESTADO
  880. 8890  I$(85)="STILL
  881. 8900  I$(86)="INMOVIL
  882. 8910  I$(87)="STOP
  883. 8920  I$(88)="PARAR
  884. 8930  I$(89)="STRANGE
  885. 8940  I$(90)="EXTRANO
  886. 8950  I$(91)="STUDY
  887. 8960  I$(92)="ESTUDIAR
  888. 8970  I$(93)="SUCCEED
  889. 8980  I$(94)="SUCEDER
  890. 8990  I$(95)="SUGGEST
  891. 9000  I$(96)="SUGERIR
  892. 9010  I$(97)="SON
  893. 9020  I$(98)="SOL
  894. 9030  DIM J$(100)
  895. 9040  J$(1)="SUNDAY
  896. 9050  J$(2)="DOMINGO
  897. 9060  J$(3)="SUPPER
  898. 9070  J$(4)="CENA
  899. 9080  J$(5)="SURE
  900. 9090  J$(6)="SEGURO
  901. 9100  J$(7)="SWEET
  902. 9110  J$(8)="DULCE
  903. 9120  J$(9)="SWIM
  904. 9130  J$(10)="NADAR
  905. 9140  J$(11)="TABLE
  906. 9150  J$(12)="MESA
  907. 9160  J$(13)="TELEPHONE
  908. 9170  J$(14)="TELEFONO
  909. 9180  J$(15)="TELEVISION
  910. 9190  J$(16)="TELEVISION
  911. 9200  J$(17)="THIEF
  912. 9210  J$(18)="LADRON
  913. 9220  J$(19)="THIN
  914. 9230  J$(20)="DELGADO
  915. 9240  J$(21)="THRONE
  916. 9250  J$(22)="TRONO
  917. 9260  J$(23)="THURSDAY
  918. 9270  J$(24)="JUEVES
  919. 9280  J$(25)="TIME
  920. 9290  J$(26)="TIEMPO
  921. 9300  J$(27)="TOMORROW
  922. 9310  J$(28)="MANANA
  923. 9320  J$(29)="TOUCH
  924. 9330  J$(30)="TOQUE
  925. 9340  J$(31)="TRAVEL
  926. 9350  J$(32)="VIAJE
  927. 9360  J$(33)="TRIP
  928. 9370  J$(34)="EXCURSION
  929. 9380  J$(35)="TRUST
  930. 9390  J$(36)="TRUST
  931. 9400  J$(37)="TUESDAY
  932. 9410  J$(38)="MARTES
  933. 9420  J$(39)="TURN
  934. 9430  J$(40)="TURNO
  935. 9440  J$(41)="TWO
  936. 9450  J$(42)="DOS
  937. 9460  J$(43)="TYPE
  938. 9470  J$(44)="TIPO
  939. 9480  J$(45)="UNGODLY
  940. 9490  J$(46)="IMPIO
  941. 9500  J$(47)="UNSPEAKABLE
  942. 9510  J$(48)="INDECIBLE
  943. 9520  J$(49)="UPSET
  944. 9530  J$(50)="VOLCAR
  945. 9540  J$(51)="VALUE
  946. 9550  J$(52)="VALORAR
  947. 9560  J$(53)="VERSE
  948. 9570  J$(54)="VERSO
  949. 9580  J$(55)="VICTORY
  950. 9590  J$(56)="VICTORIA
  951. 9600  J$(57)="VIRTUE
  952. 9610  J$(58)="VIRTUD
  953. 9620  J$(59)="VISIT
  954. 9625  J$(60)="VISITA
  955. 9630  J$(61)="VOICE
  956. 9640  J$(62)="VOZ
  957. 9650  J$(63)="WARM
  958. 9660  J$(64)="CALIENTE
  959. 9670  J$(65)="WARN
  960. 9680  J$(66)="AVISAR
  961. 9690  J$(67)="WARNING
  962. 9700  J$(68)="AVISO
  963. 9710  J$(69)="WEDNESDAY
  964. 9720  J$(70)="MIERCOLES
  965. 9730  J$(71)="WEEK
  966. 9740  J$(72)="SEMANA
  967. 9750  J$(73)="WELCOME
  968. 9760  J$(74)="BIENVENIDO
  969. 9770  J$(75)="WHEREVER
  970. 9780  J$(76)="DONDEQUIERA
  971. 9790  J$(77)="WHILE
  972. 9800  J$(78)="MIENTRAS
  973. 9810  J$(79)="WHITE
  974. 9820  J$(80)="BLANCO
  975. 9830  J$(81)="WHOLE
  976. 9840  J$(82)="TODO
  977. 9850  J$(83)="WIFE
  978. 9860  J$(84)="ESPOSA
  979. 9870  J$(85)="WISDOM
  980. 9880  J$(86)="JUICIO
  981. 9890  J$(87)="WISE
  982. 9900  J$(88)="JUICIOSO
  983. 9910  J$(89)="WORSHIP
  984. 9920  J$(90)="ADORAR
  985. 9930  J$(91)="WORST
  986. 9940  J$(92)="PEOR
  987. 9950  J$(93)="WRITE
  988. 9960  J$(94)="ESCRIBIR
  989. 9970  J$(95)="WRITING
  990. 9980  J$(96)="ESCRITURA
  991. 9990  J$(97)="WRONG
  992. 10000  J$(98)="FALSO
  993. 10011  IF Z$="" THEN 19816:COMMON Z$
  994. 10020  IF Z$=A$(1)THEN PRINT TAB(20)A$(2)
  995. 10030  IF Z$=A$(2)THEN PRINT TAB(20)A$(1)
  996. 10040  IF Z$=A$(3)THEN PRINT TAB(20)A$(4)
  997. 10050  IF Z$=A$(4)THEN PRINT TAB(20)A$(3)
  998. 10060  IF Z$=A$(5)THEN PRINT TAB(20)A$(6)
  999. 10070  IF Z$=A$(6)THEN PRINT TAB(20)A$(5)
  1000. 10080  IF Z$=A$(7)THEN PRINT TAB(20)A$(8)
  1001. 10090  IF Z$=A$(8)THEN PRINT TAB(20)A$(7)
  1002. 10100  IF Z$=A$(9)THEN PRINT TAB(20)A$(10)
  1003. 10110  IF Z$=A$(10)THEN PRINT TAB(20)A$(9)
  1004. 10120  IF Z$=A$(11)THEN PRINT TAB(20)A$(12)
  1005. 10130  IF Z$=A$(12)THEN PRINT TAB(20)A$(11)
  1006. 10140  IF Z$=A$(13)THEN PRINT TAB(20)A$(14)
  1007. 10150  IF Z$=A$(14)THEN PRINT TAB(20)A$(13)
  1008. 10160  IF Z$=A$(15)THEN PRINT TAB(20)A$(16)
  1009. 10170  IF Z$=A$(16)THEN PRINT TAB(20)A$(15)
  1010. 10180  IF Z$=A$(17)THEN PRINT TAB(20)A$(18)
  1011. 10190  IF Z$=A$(18)THEN PRINT TAB(20)A$(17)
  1012. 10200  IF Z$=A$(19)THEN PRINT TAB(20)A$(20)
  1013. 10210  IF Z$=A$(20)THEN PRINT TAB(20)A$(19)
  1014. 10220  IF Z$=A$(21)THEN PRINT TAB(20)A$(22)
  1015. 10230  IF Z$=A$(22)THEN PRINT TAB(20)A$(21)
  1016. 10240  IF Z$=A$(23)THEN PRINT TAB(20)A$(24)
  1017. 10250  IF Z$=A$(24)THEN PRINT TAB(20)A$(23)
  1018. 10260  IF Z$=A$(25)THEN PRINT TAB(20)A$(26)
  1019. 10270  IF Z$=A$(26)THEN PRINT TAB(20)A$(25)
  1020. 10280  IF Z$=A$(27)THEN PRINT TAB(20)A$(28)
  1021. 10290  IF Z$=A$(28)THEN PRINT TAB(20)A$(27)
  1022. 10300  IF Z$=A$(29)THEN PRINT TAB(20)A$(30)
  1023. 10310  IF Z$=A$(30)THEN PRINT TAB(20)A$(29)
  1024. 10320  IF Z$=A$(31)THEN PRINT TAB(20)A$(32)
  1025. 10330  IF Z$=A$(32)THEN PRINT TAB(20)A$(31)
  1026. 10340  IF Z$=A$(33)THEN PRINT TAB(20)A$(34)
  1027. 10350  IF Z$=A$(34)THEN PRINT TAB(20)A$(33)
  1028. 10360  IF Z$=A$(35)THEN PRINT TAB(20)A$(36)
  1029. 10370  IF Z$=A$(36)THEN PRINT TAB(20)A$(35)
  1030. 10380  IF Z$=A$(37)THEN PRINT TAB(20)A$(38)
  1031. 10390  IF Z$=A$(38)THEN PRINT TAB(20)A$(37)
  1032. 10400  IF Z$=A$(39)THEN PRINT TAB(20)A$(40)
  1033. 10410  IF Z$=A$(40)THEN PRINT TAB(20)A$(39)
  1034. 10420  IF Z$=A$(41)THEN PRINT TAB(20)A$(42)
  1035. 10430  IF Z$=A$(42)THEN PRINT TAB(20)A$(41)
  1036. 10440  IF Z$=A$(43)THEN PRINT TAB(20)A$(44)
  1037. 10450  IF Z$=A$(44)THEN PRINT TAB(20)A$(43)
  1038. 10460  IF Z$=A$(45)THEN PRINT TAB(20)A$(46)
  1039. 10470  IF Z$=A$(46)THEN PRINT TAB(20)A$(45)
  1040. 10480  IF Z$=A$(47)THEN PRINT TAB(20)A$(48)
  1041. 10490  IF Z$=A$(48)THEN PRINT TAB(20)A$(47)
  1042. 10500  IF Z$=A$(49)THEN PRINT TAB(20)A$(50)
  1043. 10510  IF Z$=A$(50)THEN PRINT TAB(20)A$(49)
  1044. 10520  IF Z$=A$(51)THEN PRINT TAB(20)A$(52)
  1045. 10530  IF Z$=A$(52)THEN PRINT TAB(20)A$(51)
  1046. 10540  IF Z$=A$(53)THEN PRINT TAB(20)A$(54)
  1047. 10550  IF Z$=A$(54)THEN PRINT TAB(20)A$(53)
  1048. 10560  IF Z$=A$(55)THEN PRINT TAB(20)A$(56)
  1049. 10570  IF Z$=A$(56)THEN PRINT TAB(20)A$(55)
  1050. 10580  IF Z$=A$(57)THEN PRINT TAB(20)A$(58)
  1051. 10590  IF Z$=A$(58)THEN PRINT TAB(20)A$(57)
  1052. 10600  IF Z$=A$(59)THEN PRINT TAB(20)A$(60)
  1053. 10610  IF Z$=A$(60)THEN PRINT TAB(20)A$(59)
  1054. 10620  IF Z$=A$(61)THEN PRINT TAB(20)A$(62)
  1055. 10630  IF Z$=A$(62)THEN PRINT TAB(20)A$(61)
  1056. 10640  IF Z$=A$(63)THEN PRINT TAB(20)A$(64)
  1057. 10650  IF Z$=A$(64)THEN PRINT TAB(20)A$(63)
  1058. 10660  IF Z$=A$(65)THEN PRINT TAB(20)A$(66)
  1059. 10670  IF Z$=A$(66)THEN PRINT TAB(20)A$(65)
  1060. 10680  IF Z$=A$(67)THEN PRINT TAB(20)A$(68)
  1061. 10690  IF Z$=A$(68)THEN PRINT TAB(20)A$(67)
  1062. 10700  IF Z$=A$(69)THEN PRINT TAB(20)A$(70)
  1063. 10710  IF Z$=A$(70)THEN PRINT TAB(20)A$(69)
  1064. 10720  IF Z$=A$(71)THEN PRINT TAB(20)A$(72)
  1065. 10730  IF Z$=A$(72)THEN PRINT TAB(20)A$(71)
  1066. 10740  IF Z$=A$(73)THEN PRINT TAB(20)A$(74)
  1067. 10750  IF Z$=A$(74)THEN PRINT TAB(20)A$(73)
  1068. 10760  IF Z$=A$(75)THEN PRINT TAB(20)A$(76)
  1069. 10770  IF Z$=A$(76)THEN PRINT TAB(20)A$(75)
  1070. 10780  IF Z$=A$(77)THEN PRINT TAB(20)A$(78)
  1071. 10790  IF Z$=A$(78)THEN PRINT TAB(20)A$(77)
  1072. 10800  IF Z$=A$(79)THEN PRINT TAB(20)A$(80)
  1073. 10810  IF Z$=A$(80)THEN PRINT TAB(20)A$(79)
  1074. 10820  IF Z$=A$(81)THEN PRINT TAB(20)A$(82)
  1075. 10830  IF Z$=A$(82)THEN PRINT TAB(20)A$(81)
  1076. 10840  IF Z$=A$(83)THEN PRINT TAB(20)A$(84)
  1077. 10850  IF Z$=A$(84)THEN PRINT TAB(20)A$(83)
  1078. 10860  IF Z$=A$(85)THEN PRINT TAB(20)A$(86)
  1079. 10870  IF Z$=A$(86)THEN PRINT TAB(20)A$(85)
  1080. 10880  IF Z$=A$(87)THEN PRINT TAB(20)A$(88)
  1081. 10890  IF Z$=A$(88)THEN PRINT TAB(20)A$(87)
  1082. 10900  IF Z$=A$(89)THEN PRINT TAB(20)A$(90)
  1083. 10910  IF Z$=A$(90)THEN PRINT TAB(20)A$(89)
  1084. 10920  IF Z$=A$(91)THEN PRINT TAB(20)A$(92)
  1085. 10930  IF Z$=A$(92)THEN PRINT TAB(20)A$(91)
  1086. 10940  IF Z$=A$(93)THEN PRINT TAB(20)A$(94)
  1087. 10950  IF Z$=A$(94)THEN PRINT TAB(20)A$(93)
  1088. 10960  IF Z$=A$(95)THEN PRINT TAB(20)A$(96)
  1089. 10970  IF Z$=A$(96)THEN PRINT TAB(20)A$(95)
  1090. 10980  IF Z$=A$(97)THEN PRINT TAB(20)A$(98)
  1091. 10990  IF Z$=A$(98)THEN PRINT TAB(20)A$(97)
  1092. 11000  IF Z$=B$(1)THEN PRINT TAB(20)B$(2)
  1093. 11010  IF Z$=B$(2)THEN PRINT TAB(20)B$(1)
  1094. 11020  IF Z$=B$(3)THEN PRINT TAB(20)B$(4)
  1095. 11030  IF Z$=B$(4)THEN PRINT TAB(20)B$(3)
  1096. 11040  IF Z$=B$(5)THEN PRINT TAB(20)B$(6)
  1097. 11050  IF Z$=B$(6)THEN PRINT TAB(20)B$(5)
  1098. 11060  IF Z$=B$(7)THEN PRINT TAB(20)B$(8)
  1099. 11070  IF Z$=B$(8)THEN PRINT TAB(20)B$(7)
  1100. 11080  IF Z$=B$(9)THEN PRINT TAB(20)B$(10)
  1101. 11090  IF Z$=B$(10)THEN PRINT TAB(20)B$(9)
  1102. 11100  IF Z$=B$(11)THEN PRINT TAB(20)B$(12)
  1103. 11110  IF Z$=B$(12)THEN PRINT TAB(20)B$(11)
  1104. 11120  IF Z$=B$(13)THEN PRINT TAB(20)B$(14)
  1105. 11130  IF Z$=B$(14)THEN PRINT TAB(20)B$(13)
  1106. 11140  IF Z$=B$(15)THEN PRINT TAB(20)B$(16)
  1107. 11150  IF Z$=B$(16)THEN PRINT TAB(20)B$(15)
  1108. 11160  IF Z$=B$(17)THEN PRINT TAB(20)B$(18)
  1109. 11170  IF Z$=B$(18)THEN PRINT TAB(20)B$(17)
  1110. 11180  IF Z$=B$(19)THEN PRINT TAB(20)B$(20)
  1111. 11190  IF Z$=B$(20)THEN PRINT TAB(20)B$(19)
  1112. 11200  IF Z$=B$(21)THEN PRINT TAB(20)B$(22)
  1113. 11210  IF Z$=B$(22)THEN PRINT TAB(20)B$(21)
  1114. 11220  IF Z$=B$(23)THEN PRINT TAB(20)B$(24)
  1115. 11230  IF Z$=B$(24)THEN PRINT TAB(20)B$(23)
  1116. 11240  IF Z$=B$(25)THEN PRINT TAB(20)B$(26)
  1117. 11250  IF Z$=B$(26)THEN PRINT TAB(20)B$(25)
  1118. 11260  IF Z$=B$(27)THEN PRINT TAB(20)B$(28)
  1119. 11270  IF Z$=B$(28)THEN PRINT TAB(20)B$(27)
  1120. 11280  IF Z$=B$(29)THEN PRINT TAB(20)B$(30)
  1121. 11290  IF Z$=B$(30)THEN PRINT TAB(20)B$(29)
  1122. 11300  IF Z$=B$(31)THEN PRINT TAB(20)B$(32)
  1123. 11310  IF Z$=B$(32)THEN PRINT TAB(20)B$(31)
  1124. 11320  IF Z$=B$(33)THEN PRINT TAB(20)B$(34)
  1125. 11330  IF Z$=B$(34)THEN PRINT TAB(20)B$(33)
  1126. 11340  IF Z$=B$(35)THEN PRINT TAB(20)B$(36)
  1127. 11350  IF Z$=B$(36)THEN PRINT TAB(20)B$(35)
  1128. 11360  IF Z$=B$(37)THEN PRINT TAB(20)B$(38)
  1129. 11370  IF Z$=B$(38)THEN PRINT TAB(20)B$(37)
  1130. 11380  IF Z$=B$(39)THEN PRINT TAB(20)B$(40)
  1131. 11390  IF Z$=B$(40)THEN PRINT TAB(20)B$(39)
  1132. 11400  IF Z$=B$(41)THEN PRINT TAB(20)B$(42)
  1133. 11410  IF Z$=B$(42)THEN PRINT TAB(20)B$(41)
  1134. 11420  IF Z$=B$(43)THEN PRINT TAB(20)B$(44)
  1135. 11430  IF Z$=B$(44)THEN PRINT TAB(20)B$(43)
  1136. 11440  IF Z$=B$(45)THEN PRINT TAB(20)B$(46)
  1137. 11450  IF Z$=B$(46)THEN PRINT TAB(20)B$(45)
  1138. 11460  IF Z$=B$(47)THEN PRINT TAB(20)B$(48)
  1139. 11470  IF Z$=B$(48)THEN PRINT TAB(20)B$(47)
  1140. 11480  IF Z$=B$(49)THEN PRINT TAB(20)B$(50)
  1141. 11490  IF Z$=B$(50)THEN PRINT TAB(20)B$(49)
  1142. 11500  IF Z$=B$(51)THEN PRINT TAB(20)B$(52)
  1143. 11510  IF Z$=B$(52)THEN PRINT TAB(20)B$(51)
  1144. 11520  IF Z$=B$(53)THEN PRINT TAB(20)B$(54)
  1145. 11530  IF Z$=B$(54)THEN PRINT TAB(20)B$(53)
  1146. 11540  IF Z$=B$(55)THEN PRINT TAB(20)B$(56)
  1147. 11550  IF Z$=B$(56)THEN PRINT TAB(20)B$(55)
  1148. 11560  IF Z$=B$(57)THEN PRINT TAB(20)B$(58)
  1149. 11570  IF Z$=B$(58)THEN PRINT TAB(20)B$(57)
  1150. 11580  IF Z$=B$(59)THEN PRINT TAB(20)B$(60)
  1151. 11590  IF Z$=B$(60)THEN PRINT TAB(20)B$(59)
  1152. 11600  IF Z$=B$(61)THEN PRINT TAB(20)B$(62)
  1153. 11610  IF Z$=B$(62)THEN PRINT TAB(20)B$(61)
  1154. 11620  IF Z$=B$(63)THEN PRINT TAB(20)B$(64)
  1155. 11630  IF Z$=B$(64)THEN PRINT TAB(20)B$(63)
  1156. 11640  IF Z$=B$(65)THEN PRINT TAB(20)B$(66)
  1157. 11650  IF Z$=B$(66)THEN PRINT TAB(20)B$(65)
  1158. 11660  IF Z$=B$(67)THEN PRINT TAB(20)B$(68)
  1159. 11670  IF Z$=B$(68)THEN PRINT TAB(20)B$(67)
  1160. 11680  IF Z$=B$(69)THEN PRINT TAB(20)B$(70)
  1161. 11690  IF Z$=B$(70)THEN PRINT TAB(20)B$(69)
  1162. 11700  IF Z$=B$(71)THEN PRINT TAB(20)B$(72)
  1163. 11710  IF Z$=B$(72)THEN PRINT TAB(20)B$(71)
  1164. 11720  IF Z$=B$(73)THEN PRINT TAB(20)B$(74)
  1165. 11730  IF Z$=B$(74)THEN PRINT TAB(20)B$(73)
  1166. 11740  IF Z$=B$(75)THEN PRINT TAB(20)B$(76)
  1167. 11750  IF Z$=B$(76)THEN PRINT TAB(20)B$(75)
  1168. 11760  IF Z$=B$(77)THEN PRINT TAB(20)B$(78)
  1169. 11770  IF Z$=B$(78)THEN PRINT TAB(20)B$(77)
  1170. 11780  IF Z$=B$(79)THEN PRINT TAB(20)B$(80)
  1171. 11790  IF Z$=B$(80)THEN PRINT TAB(20)B$(79)
  1172. 11800  IF Z$=B$(81)THEN PRINT TAB(20)B$(82)
  1173. 11810  IF Z$=B$(82)THEN PRINT TAB(20)B$(81)
  1174. 11820  IF Z$=B$(83)THEN PRINT TAB(20)B$(84)
  1175. 11830  IF Z$=B$(84)THEN PRINT TAB(20)B$(83)
  1176. 11840  IF Z$=B$(85)THEN PRINT TAB(20)B$(86)
  1177. 11850  IF Z$=B$(86)THEN PRINT TAB(20)B$(85)
  1178. 11860  IF Z$=B$(87)THEN PRINT TAB(20)B$(88)
  1179. 11870  IF Z$=B$(88)THEN PRINT TAB(20)B$(87)
  1180. 11880  IF Z$=B$(89)THEN PRINT TAB(20)B$(90)
  1181. 11890  IF Z$=B$(90)THEN PRINT TAB(20)B$(89)
  1182. 11900  IF Z$=B$(91)THEN PRINT TAB(20)B$(92)
  1183. 11910  IF Z$=B$(92)THEN PRINT TAB(20)B$(91)
  1184. 11920  IF Z$=B$(93)THEN PRINT TAB(20)B$(94)
  1185. 11930  IF Z$=B$(94)THEN PRINT TAB(20)B$(93)
  1186. 11940  IF Z$=B$(95)THEN PRINT TAB(20)B$(96)
  1187. 11950  IF Z$=B$(96)THEN PRINT TAB(20)B$(95)
  1188. 11960  IF Z$=B$(97)THEN PRINT TAB(20)B$(98)
  1189. 11970  IF Z$=B$(98)THEN PRINT TAB(20)B$(97)
  1190. 11980  IF Z$=C$(1)THEN PRINT TAB(20)C$(2)
  1191. 11990  IF Z$=C$(2)THEN PRINT TAB(20)C$(1)
  1192. 12000  IF Z$=C$(3)THEN PRINT TAB(20)C$(4)
  1193. 12010  IF Z$=C$(4)THEN PRINT TAB(20)C$(3)
  1194. 12020  IF Z$=C$(5)THEN PRINT TAB(20)C$(6)
  1195. 12030  IF Z$=C$(6)THEN PRINT TAB(20)C$(5)
  1196. 12040  IF Z$=C$(7)THEN PRINT TAB(20)C$(8)
  1197. 12050  IF Z$=C$(8)THEN PRINT TAB(20)C$(7)
  1198. 12060  IF Z$=C$(9)THEN PRINT TAB(20)C$(10)
  1199. 12070  IF Z$=C$(10)THEN PRINT TAB(20)C$(9)
  1200. 12080  IF Z$=C$(11)THEN PRINT TAB(20)C$(12)
  1201. 12090  IF Z$=C$(12)THEN PRINT TAB(20)C$(11)
  1202. 12100  IF Z$=C$(13)THEN PRINT TAB(20)C$(14)
  1203. 12110  IF Z$=C$(14)THEN PRINT TAB(20)C$(13)
  1204. 12120  IF Z$=C$(15)THEN PRINT TAB(20)C$(16)
  1205. 12130  IF Z$=C$(16)THEN PRINT TAB(20)C$(15)
  1206. 12140  IF Z$=C$(17)THEN PRINT TAB(20)C$(18)
  1207. 12150  IF Z$=C$(18)THEN PRINT TAB(20)C$(17)
  1208. 12160  IF Z$=C$(19)THEN PRINT TAB(20)C$(20)
  1209. 12170  IF Z$=C$(20)THEN PRINT TAB(20)C$(19)
  1210. 12180  IF Z$=C$(21)THEN PRINT TAB(20)C$(22)
  1211. 12190  IF Z$=C$(22)THEN PRINT TAB(20)C$(21)
  1212. 12200  IF Z$=C$(23)THEN PRINT TAB(20)C$(24)
  1213. 12210  IF Z$=C$(24)THEN PRINT TAB(20)C$(23)
  1214. 12220  IF Z$=C$(25)THEN PRINT TAB(20)C$(26)
  1215. 12230  IF Z$=C$(26)THEN PRINT TAB(20)C$(25)
  1216. 12240  IF Z$=C$(27)THEN PRINT TAB(20)C$(28)
  1217. 12250  IF Z$=C$(28)THEN PRINT TAB(20)C$(27)
  1218. 12260  IF Z$=C$(29)THEN PRINT TAB(20)C$(30)
  1219. 12270  IF Z$=C$(30)THEN PRINT TAB(20)C$(29)
  1220. 12280  IF Z$=C$(31)THEN PRINT TAB(20)C$(32)
  1221. 12290  IF Z$=C$(32)THEN PRINT TAB(20)C$(31)
  1222. 12300  IF Z$=C$(33)THEN PRINT TAB(20)C$(34)
  1223. 12310  IF Z$=C$(34)THEN PRINT TAB(20)C$(33)
  1224. 12320  IF Z$=C$(35)THEN PRINT TAB(20)C$(36)
  1225. 12330  IF Z$=C$(36)THEN PRINT TAB(20)C$(35)
  1226. 12340  IF Z$=C$(37)THEN PRINT TAB(20)C$(38)
  1227. 12350  IF Z$=C$(38)THEN PRINT TAB(20)C$(37)
  1228. 12360  IF Z$=C$(39)THEN PRINT TAB(20)C$(40)
  1229. 12370  IF Z$=C$(40)THEN PRINT TAB(20)C$(39)
  1230. 12380  IF Z$=C$(41)THEN PRINT TAB(20)C$(42)
  1231. 12390  IF Z$=C$(42)THEN PRINT TAB(20)C$(41)
  1232. 12400  IF Z$=C$(43)THEN PRINT TAB(20)C$(44)
  1233. 12410  IF Z$=C$(44)THEN PRINT TAB(20)C$(43)
  1234. 12420  IF Z$=C$(45)THEN PRINT TAB(20)C$(46)
  1235. 12430  IF Z$=C$(46)THEN PRINT TAB(20)C$(45)
  1236. 12440  IF Z$=C$(47)THEN PRINT TAB(20)C$(48)
  1237. 12450  IF Z$=C$(48)THEN PRINT TAB(20)C$(47)
  1238. 12460  IF Z$=C$(49)THEN PRINT TAB(20)C$(50)
  1239. 12470  IF Z$=C$(50)THEN PRINT TAB(20)C$(49)
  1240. 12480  IF Z$=C$(51)THEN PRINT TAB(20)C$(52)
  1241. 12490  IF Z$=C$(52)THEN PRINT TAB(20)C$(51)
  1242. 12500  IF Z$=C$(53)THEN PRINT TAB(20)C$(54)
  1243. 12510  IF Z$=C$(54)THEN PRINT TAB(20)C$(53)
  1244. 12520  IF Z$=C$(55)THEN PRINT TAB(20)C$(56)
  1245. 12530  IF Z$=C$(56)THEN PRINT TAB(20)C$(55)
  1246. 12540  IF Z$=C$(57)THEN PRINT TAB(20)C$(58)
  1247. 12550  IF Z$=C$(58)THEN PRINT TAB(20)C$(57)
  1248. 12560  IF Z$=C$(59)THEN PRINT TAB(20)C$(60)
  1249. 12570  IF Z$=C$(60)THEN PRINT TAB(20)C$(59)
  1250. 12580  IF Z$=C$(61)THEN PRINT TAB(20)C$(62)
  1251. 12590  IF Z$=C$(62)THEN PRINT TAB(20)C$(61)
  1252. 12600  IF Z$=C$(63)THEN PRINT TAB(20)C$(64)
  1253. 12610  IF Z$=C$(64)THEN PRINT TAB(20)C$(63)
  1254. 12620  IF Z$=C$(65)THEN PRINT TAB(20)C$(66)
  1255. 12630  IF Z$=C$(66)THEN PRINT TAB(20)C$(65)
  1256. 12640  IF Z$=C$(67)THEN PRINT TAB(20)C$(68)
  1257. 12650  IF Z$=C$(68)THEN PRINT TAB(20)C$(67)
  1258. 12660  IF Z$=C$(69)THEN PRINT TAB(20)C$(70)
  1259. 12670  IF Z$=C$(70)THEN PRINT TAB(20)C$(69)
  1260. 12680  IF Z$=C$(71)THEN PRINT TAB(20)C$(72)
  1261. 12690  IF Z$=C$(72)THEN PRINT TAB(20)C$(71)
  1262. 12700  IF Z$=C$(73)THEN PRINT TAB(20)C$(74)
  1263. 12710  IF Z$=C$(74)THEN PRINT TAB(20)C$(73)
  1264. 12720  IF Z$=C$(75)THEN PRINT TAB(20)C$(76)
  1265. 12730  IF Z$=C$(76)THEN PRINT TAB(20)C$(75)
  1266. 12740  IF Z$=C$(77)THEN PRINT TAB(20)C$(78)
  1267. 12750  IF Z$=C$(78)THEN PRINT TAB(20)C$(77)
  1268. 12760  IF Z$=C$(79)THEN PRINT TAB(20)C$(80)
  1269. 12770  IF Z$=C$(80)THEN PRINT TAB(20)C$(79)
  1270. 12780  IF Z$=C$(81)THEN PRINT TAB(20)C$(82)
  1271. 12790  IF Z$=C$(82)THEN PRINT TAB(20)C$(81)
  1272. 12800  IF Z$=C$(83)THEN PRINT TAB(20)C$(84)
  1273. 12810  IF Z$=C$(84)THEN PRINT TAB(20)C$(83)
  1274. 12820  IF Z$=C$(85)THEN PRINT TAB(20)C$(86)
  1275. 12830  IF Z$=C$(86)THEN PRINT TAB(20)C$(85)
  1276. 12840  IF Z$=C$(87)THEN PRINT TAB(20)C$(88)
  1277. 12850  IF Z$=C$(88)THEN PRINT TAB(20)C$(87)
  1278. 12860  IF Z$=C$(89)THEN PRINT TAB(20)C$(90)
  1279. 12870  IF Z$=C$(90)THEN PRINT TAB(20)C$(89)
  1280. 12880  IF Z$=C$(91)THEN PRINT TAB(20)C$(92)
  1281. 12890  IF Z$=C$(92)THEN PRINT TAB(20)C$(91)
  1282. 12900  IF Z$=C$(93)THEN PRINT TAB(20)C$(94)
  1283. 12910  IF Z$=C$(94)THEN PRINT TAB(20)C$(93)
  1284. 12920  IF Z$=C$(95)THEN PRINT TAB(20)C$(96)
  1285. 12930  IF Z$=C$(96)THEN PRINT TAB(20)C$(95)
  1286. 12940  IF Z$=C$(97)THEN PRINT TAB(20)C$(98)
  1287. 12950  IF Z$=C$(98)THEN PRINT TAB(20)C$(97)
  1288. 12960  IF Z$=D$(1)THEN PRINT TAB(20)D$(2)
  1289. 12970  IF Z$=D$(2)THEN PRINT TAB(20)D$(1)
  1290. 12980  IF Z$=D$(3)THEN PRINT TAB(20)D$(4)
  1291. 12990  IF Z$=D$(4)THEN PRINT TAB(20)D$(3)
  1292. 13000  IF Z$=D$(5)THEN PRINT TAB(20)D$(6)
  1293. 13010  IF Z$=D$(6)THEN PRINT TAB(20)D$(5)
  1294. 13020  IF Z$=D$(7)THEN PRINT TAB(20)D$(8)
  1295. 13030  IF Z$=D$(8)THEN PRINT TAB(20)D$(7)
  1296. 13040  IF Z$=D$(9)THEN PRINT TAB(20)D$(10)
  1297. 13050  IF Z$=D$(10)THEN PRINT TAB(20)D$(9)
  1298. 13060  IF Z$=D$(11)THEN PRINT TAB(20)D$(12)
  1299. 13070  IF Z$=D$(12)THEN PRINT TAB(20)D$(11)
  1300. 13080  IF Z$=D$(13)THEN PRINT TAB(20)D$(14)
  1301. 13090  IF Z$=D$(14)THEN PRINT TAB(20)D$(13)
  1302. 13100  IF Z$=D$(15)THEN PRINT TAB(20)D$(16)
  1303. 13110  IF Z$=D$(16)THEN PRINT TAB(20)D$(15)
  1304. 13120  IF Z$=D$(17)THEN PRINT TAB(20)D$(18)
  1305. 13130  IF Z$=D$(18)THEN PRINT TAB(20)D$(17)
  1306. 13140  IF Z$=D$(19)THEN PRINT TAB(20)D$(20)
  1307. 13150  IF Z$=D$(20)THEN PRINT TAB(20)D$(19)
  1308. 13160  IF Z$=D$(21)THEN PRINT TAB(20)D$(22)
  1309. 13170  IF Z$=D$(22)THEN PRINT TAB(20)D$(21)
  1310. 13180  IF Z$=D$(23)THEN PRINT TAB(20)D$(24)
  1311. 13190  IF Z$=D$(24)THEN PRINT TAB(20)D$(23)
  1312. 13200  IF Z$=D$(25)THEN PRINT TAB(20)D$(26)
  1313. 13210  IF Z$=D$(26)THEN PRINT TAB(20)D$(25)
  1314. 13220  IF Z$=D$(27)THEN PRINT TAB(20)D$(28)
  1315. 13230  IF Z$=D$(28)THEN PRINT TAB(20)D$(27)
  1316. 13240  IF Z$=D$(29)THEN PRINT TAB(20)D$(30)
  1317. 13250  IF Z$=D$(30)THEN PRINT TAB(20)D$(29)
  1318. 13260  IF Z$=D$(31)THEN PRINT TAB(20)D$(32)
  1319. 13270  IF Z$=D$(32)THEN PRINT TAB(20)D$(31)
  1320. 13280  IF Z$=D$(33)THEN PRINT TAB(20)D$(34)
  1321. 13290  IF Z$=D$(34)THEN PRINT TAB(20)D$(33)
  1322. 13300  IF Z$=D$(35)THEN PRINT TAB(20)D$(36)
  1323. 13310  IF Z$=D$(36)THEN PRINT TAB(20)D$(35)
  1324. 13320  IF Z$=D$(37)THEN PRINT TAB(20)D$(38)
  1325. 13330  IF Z$=D$(38)THEN PRINT TAB(20)D$(37)
  1326. 13340  IF Z$=D$(39)THEN PRINT TAB(20)D$(40)
  1327. 13350  IF Z$=D$(40)THEN PRINT TAB(20)D$(39)
  1328. 13360  IF Z$=D$(41)THEN PRINT TAB(20)D$(42)
  1329. 13370  IF Z$=D$(42)THEN PRINT TAB(20)D$(41)
  1330. 13380  IF Z$=D$(43)THEN PRINT TAB(20)D$(44)
  1331. 13390  IF Z$=D$(44)THEN PRINT TAB(20)D$(43)
  1332. 13400  IF Z$=D$(45)THEN PRINT TAB(20)D$(46)
  1333. 13410  IF Z$=D$(46)THEN PRINT TAB(20)D$(45)
  1334. 13420  IF Z$=D$(47)THEN PRINT TAB(20)D$(48)
  1335. 13430  IF Z$=D$(48)THEN PRINT TAB(20)D$(47)
  1336. 13440  IF Z$=D$(49)THEN PRINT TAB(20)D$(50)
  1337. 13450  IF Z$=D$(50)THEN PRINT TAB(20)D$(49)
  1338. 13460  IF Z$=D$(51)THEN PRINT TAB(20)D$(52)
  1339. 13470  IF Z$=D$(52)THEN PRINT TAB(20)D$(51)
  1340. 13480  IF Z$=D$(53)THEN PRINT TAB(20)D$(54)
  1341. 13490  IF Z$=D$(54)THEN PRINT TAB(20)D$(53)
  1342. 13500  IF Z$=D$(55)THEN PRINT TAB(20)D$(56)
  1343. 13510  IF Z$=D$(56)THEN PRINT TAB(20)D$(55)
  1344. 13520  IF Z$=D$(57)THEN PRINT TAB(20)D$(58)
  1345. 13530  IF Z$=D$(58)THEN PRINT TAB(20)D$(57)
  1346. 13540  IF Z$=D$(59)THEN PRINT TAB(20)D$(60)
  1347. 13550  IF Z$=D$(60)THEN PRINT TAB(20)D$(59)
  1348. 13560  IF Z$=D$(61)THEN PRINT TAB(20)D$(62)
  1349. 13570  IF Z$=D$(62)THEN PRINT TAB(20)D$(61)
  1350. 13580  IF Z$=D$(63)THEN PRINT TAB(20)D$(64)
  1351. 13590  IF Z$=D$(64)THEN PRINT TAB(20)D$(63)
  1352. 13600  IF Z$=D$(65)THEN PRINT TAB(20)D$(66)
  1353. 13610  IF Z$=D$(66)THEN PRINT TAB(20)D$(65)
  1354. 13620  IF Z$=D$(67)THEN PRINT TAB(20)D$(68)
  1355. 13630  IF Z$=D$(68)THEN PRINT TAB(20)D$(67)
  1356. 13640  IF Z$=D$(69)THEN PRINT TAB(20)D$(70)
  1357. 13650  IF Z$=D$(70)THEN PRINT TAB(20)D$(69)
  1358. 13660  IF Z$=D$(71)THEN PRINT TAB(20)D$(72)
  1359. 13670  IF Z$=D$(72)THEN PRINT TAB(20)D$(71)
  1360. 13680  IF Z$=D$(73)THEN PRINT TAB(20)D$(74)
  1361. 13690  IF Z$=D$(74)THEN PRINT TAB(20)D$(73)
  1362. 13700  IF Z$=D$(75)THEN PRINT TAB(20)D$(76)
  1363. 13710  IF Z$=D$(76)THEN PRINT TAB(20)D$(75)
  1364. 13720  IF Z$=D$(77)THEN PRINT TAB(20)D$(78)
  1365. 13730  IF Z$=D$(78)THEN PRINT TAB(20)D$(77)
  1366. 13740  IF Z$=D$(79)THEN PRINT TAB(20)D$(80)
  1367. 13750  IF Z$=D$(80)THEN PRINT TAB(20)D$(79)
  1368. 13760  IF Z$=D$(81)THEN PRINT TAB(20)D$(82)
  1369. 13770  IF Z$=D$(82)THEN PRINT TAB(20)D$(81)
  1370. 13780  IF Z$=D$(83)THEN PRINT TAB(20)D$(84)
  1371. 13790  IF Z$=D$(84)THEN PRINT TAB(20)D$(83)
  1372. 13800  IF Z$=D$(85)THEN PRINT TAB(20)D$(86)
  1373. 13810  IF Z$=D$(86)THEN PRINT TAB(20)D$(85)
  1374. 13820  IF Z$=D$(87)THEN PRINT TAB(20)D$(88)
  1375. 13830  IF Z$=D$(88)THEN PRINT TAB(20)D$(87)
  1376. 13840  IF Z$=D$(89)THEN PRINT TAB(20)D$(90)
  1377. 13850  IF Z$=D$(90)THEN PRINT TAB(20)D$(89)
  1378. 13860  IF Z$=D$(91)THEN PRINT TAB(20)D$(92)
  1379. 13870  IF Z$=D$(92)THEN PRINT TAB(20)D$(91)
  1380. 13880  IF Z$=D$(93)THEN PRINT TAB(20)D$(94)
  1381. 13890  IF Z$=D$(94)THEN PRINT TAB(20)D$(93)
  1382. 13900  IF Z$=D$(95)THEN PRINT TAB(20)D$(96)
  1383. 13910  IF Z$=D$(96)THEN PRINT TAB(20)D$(95)
  1384. 13920  IF Z$=D$(97)THEN PRINT TAB(20)D$(98)
  1385. 13930  IF Z$=D$(98)THEN PRINT TAB(20)D$(97)
  1386. 13940  IF Z$=E$(1)THEN PRINT TAB(20)E$(2)
  1387. 13950  IF Z$=E$(2)THEN PRINT TAB(20)E$(1)
  1388. 13960  IF Z$=E$(3)THEN PRINT TAB(20)E$(4)
  1389. 13970  IF Z$=E$(4)THEN PRINT TAB(20)E$(3)
  1390. 13980  IF Z$=E$(5)THEN PRINT TAB(20)E$(6)
  1391. 13990  IF Z$=E$(6)THEN PRINT TAB(20)E$(5)
  1392. 14000  IF Z$=E$(7)THEN PRINT TAB(20)E$(8)
  1393. 14010  IF Z$=E$(8)THEN PRINT TAB(20)E$(7)
  1394. 14020  IF Z$=E$(9)THEN PRINT TAB(20)E$(10)
  1395. 14030  IF Z$=E$(10)THEN PRINT TAB(20)E$(9)
  1396. 14040  IF Z$=E$(11)THEN PRINT TAB(20)E$(12)
  1397. 14050  IF Z$=E$(12)THEN PRINT TAB(20)E$(11)
  1398. 14060  IF Z$=E$(13)THEN PRINT TAB(20)E$(14)
  1399. 14070  IF Z$=E$(14)THEN PRINT TAB(20)E$(13)
  1400. 14080  IF Z$=E$(15)THEN PRINT TAB(20)E$(16)
  1401. 14090  IF Z$=E$(16)THEN PRINT TAB(20)E$(15)
  1402. 14100  IF Z$=E$(17)THEN PRINT TAB(20)E$(18)
  1403. 14110  IF Z$=E$(18)THEN PRINT TAB(20)E$(17)
  1404. 14120  IF Z$=E$(19)THEN PRINT TAB(20)E$(20)
  1405. 14130  IF Z$=E$(20)THEN PRINT TAB(20)E$(19)
  1406. 14140  IF Z$=E$(21)THEN PRINT TAB(20)E$(22)
  1407. 14150  IF Z$=E$(22)THEN PRINT TAB(20)E$(21)
  1408. 14160  IF Z$=E$(23)THEN PRINT TAB(20)E$(24)
  1409. 14170  IF Z$=E$(24)THEN PRINT TAB(20)E$(23)
  1410. 14180  IF Z$=E$(25)THEN PRINT TAB(20)E$(26)
  1411. 14190  IF Z$=E$(26)THEN PRINT TAB(20)E$(25)
  1412. 14200  IF Z$=E$(27)THEN PRINT TAB(20)E$(28)
  1413. 14210  IF Z$=E$(28)THEN PRINT TAB(20)E$(27)
  1414. 14220  IF Z$=E$(29)THEN PRINT TAB(20)E$(30)
  1415. 14230  IF Z$=E$(30)THEN PRINT TAB(20)E$(29)
  1416. 14240  IF Z$=E$(31)THEN PRINT TAB(20)E$(32)
  1417. 14250  IF Z$=E$(32)THEN PRINT TAB(20)E$(31)
  1418. 14260  IF Z$=E$(33)THEN PRINT TAB(20)E$(34)
  1419. 14270  IF Z$=E$(34)THEN PRINT TAB(20)E$(33)
  1420. 14280  IF Z$=E$(35)THEN PRINT TAB(20)E$(36)
  1421. 14290  IF Z$=E$(36)THEN PRINT TAB(20)E$(35)
  1422. 14300  IF Z$=E$(37)THEN PRINT TAB(20)E$(38)
  1423. 14310  IF Z$=E$(38)THEN PRINT TAB(20)E$(37)
  1424. 14320  IF Z$=E$(39)THEN PRINT TAB(20)E$(40)
  1425. 14330  IF Z$=E$(40)THEN PRINT TAB(20)E$(39)
  1426. 14340  IF Z$=E$(41)THEN PRINT TAB(20)E$(42)
  1427. 14350  IF Z$=E$(42)THEN PRINT TAB(20)E$(41)
  1428. 14360  IF Z$=E$(43)THEN PRINT TAB(20)E$(44)
  1429. 14370  IF Z$=E$(44)THEN PRINT TAB(20)E$(43)
  1430. 14380  IF Z$=E$(45)THEN PRINT TAB(20)E$(46)
  1431. 14390  IF Z$=E$(46)THEN PRINT TAB(20)E$(45)
  1432. 14400  IF Z$=E$(47)THEN PRINT TAB(20)E$(48)
  1433. 14410  IF Z$=E$(48)THEN PRINT TAB(20)E$(47)
  1434. 14420  IF Z$=E$(49)THEN PRINT TAB(20)E$(50)
  1435. 14430  IF Z$=E$(50)THEN PRINT TAB(20)E$(49)
  1436. 14440  IF Z$=E$(51)THEN PRINT TAB(20)E$(52)
  1437. 14450  IF Z$=E$(52)THEN PRINT TAB(20)E$(51)
  1438. 14460  IF Z$=E$(53)THEN PRINT TAB(20)E$(54)
  1439. 14470  IF Z$=E$(54)THEN PRINT TAB(20)E$(53)
  1440. 14480  IF Z$=E$(55)THEN PRINT TAB(20)E$(56)
  1441. 14490  IF Z$=E$(56)THEN PRINT TAB(20)E$(55)
  1442. 14500  IF Z$=E$(57)THEN PRINT TAB(20)E$(58)
  1443. 14510  IF Z$=E$(58)THEN PRINT TAB(20)E$(57)
  1444. 14520  IF Z$=E$(59)THEN PRINT TAB(20)E$(60)
  1445. 14530  IF Z$=E$(60)THEN PRINT TAB(20)E$(59)
  1446. 14540  IF Z$=E$(61)THEN PRINT TAB(20)E$(62)
  1447. 14550  IF Z$=E$(62)THEN PRINT TAB(20)E$(61)
  1448. 14560  IF Z$=E$(63)THEN PRINT TAB(20)E$(64)
  1449. 14570  IF Z$=E$(64)THEN PRINT TAB(20)E$(63)
  1450. 14580  IF Z$=E$(65)THEN PRINT TAB(20)E$(66)
  1451. 14590  IF Z$=E$(66)THEN PRINT TAB(20)E$(65)
  1452. 14600  IF Z$=E$(67)THEN PRINT TAB(20)E$(68)
  1453. 14610  IF Z$=E$(68)THEN PRINT TAB(20)E$(67)
  1454. 14620  IF Z$=E$(69)THEN PRINT TAB(20)E$(70)
  1455. 14630  IF Z$=E$(70)THEN PRINT TAB(20)E$(69)
  1456. 14640  IF Z$=E$(71)THEN PRINT TAB(20)E$(72)
  1457. 14650  IF Z$=E$(72)THEN PRINT TAB(20)E$(71)
  1458. 14660  IF Z$=E$(73)THEN PRINT TAB(20)E$(74)
  1459. 14670  IF Z$=E$(74)THEN PRINT TAB(20)E$(73)
  1460. 14680  IF Z$=E$(75)THEN PRINT TAB(20)E$(76)
  1461. 14690  IF Z$=E$(76)THEN PRINT TAB(20)E$(75)
  1462. 14700  IF Z$=E$(77)THEN PRINT TAB(20)E$(78)
  1463. 14710  IF Z$=E$(78)THEN PRINT TAB(20)E$(77)
  1464. 14720  IF Z$=E$(79)THEN PRINT TAB(20)E$(80)
  1465. 14730  IF Z$=E$(80)THEN PRINT TAB(20)E$(79)
  1466. 14740  IF Z$=E$(81)THEN PRINT TAB(20)E$(82)
  1467. 14750  IF Z$=E$(82)THEN PRINT TAB(20)E$(81)
  1468. 14760  IF Z$=E$(83)THEN PRINT TAB(20)E$(84)
  1469. 14770  IF Z$=E$(84)THEN PRINT TAB(20)E$(83)
  1470. 14780  IF Z$=E$(85)THEN PRINT TAB(20)E$(86)
  1471. 14790  IF Z$=E$(86)THEN PRINT TAB(20)E$(85)
  1472. 14800  IF Z$=E$(87)THEN PRINT TAB(20)E$(88)
  1473. 14810  IF Z$=E$(88)THEN PRINT TAB(20)E$(87)
  1474. 14820  IF Z$=E$(89)THEN PRINT TAB(20)E$(90)
  1475. 14830  IF Z$=E$(90)THEN PRINT TAB(20)E$(89)
  1476. 14840  IF Z$=E$(91)THEN PRINT TAB(20)E$(92)
  1477. 14850  IF Z$=E$(92)THEN PRINT TAB(20)E$(91)
  1478. 14860  IF Z$=E$(93)THEN PRINT TAB(20)E$(94)
  1479. 14870  IF Z$=E$(94)THEN PRINT TAB(20)E$(93)
  1480. 14880  IF Z$=E$(95)THEN PRINT TAB(20)E$(96)
  1481. 14890  IF Z$=E$(96)THEN PRINT TAB(20)E$(95)
  1482. 14900  IF Z$=E$(97)THEN PRINT TAB(20)E$(98)
  1483. 14910  IF Z$=E$(98)THEN PRINT TAB(20)E$(97)
  1484. 14920  IF Z$=F$(1)THEN PRINT TAB(20)F$(2)
  1485. 14930  IF Z$=F$(2)THEN PRINT TAB(20)F$(1)
  1486. 14940  IF Z$=F$(3)THEN PRINT TAB(20)F$(4)
  1487. 14950  IF Z$=F$(4)THEN PRINT TAB(20)F$(3)
  1488. 14960  IF Z$=F$(5)THEN PRINT TAB(20)F$(6)
  1489. 14970  IF Z$=F$(6)THEN PRINT TAB(20)F$(5)
  1490. 14980  IF Z$=F$(7)THEN PRINT TAB(20)F$(8)
  1491. 14990  IF Z$=F$(8)THEN PRINT TAB(20)F$(7)
  1492. 15000  IF Z$=F$(9)THEN PRINT TAB(20)F$(10)
  1493. 15010  IF Z$=F$(10)THEN PRINT TAB(20)F$(9)
  1494. 15020  IF Z$=F$(11)THEN PRINT TAB(20)F$(12)
  1495. 15030  IF Z$=F$(12)THEN PRINT TAB(20)F$(11)
  1496. 15040  IF Z$=F$(13)THEN PRINT TAB(20)F$(14)
  1497. 15050  IF Z$=F$(14)THEN PRINT TAB(20)F$(13)
  1498. 15060  IF Z$=F$(15)THEN PRINT TAB(20)F$(16)
  1499. 15070  IF Z$=F$(16)THEN PRINT TAB(20)F$(15)
  1500. 15080  IF Z$=F$(17)THEN PRINT TAB(20)F$(18)
  1501. 15090  IF Z$=F$(18)THEN PRINT TAB(20)F$(17)
  1502. 15100  IF Z$=F$(19)THEN PRINT TAB(20)F$(20)
  1503. 15110  IF Z$=F$(20)THEN PRINT TAB(20)F$(19)
  1504. 15120  IF Z$=F$(21)THEN PRINT TAB(20)F$(22)
  1505. 15130  IF Z$=F$(22)THEN PRINT TAB(20)F$(21)
  1506. 15140  IF Z$=F$(23)THEN PRINT TAB(20)F$(24)
  1507. 15150  IF Z$=F$(24)THEN PRINT TAB(20)F$(23)
  1508. 15160  IF Z$=F$(25)THEN PRINT TAB(20)F$(26)
  1509. 15170  IF Z$=F$(26)THEN PRINT TAB(20)F$(25)
  1510. 15180  IF Z$=F$(27)THEN PRINT TAB(20)F$(28)
  1511. 15190  IF Z$=F$(28)THEN PRINT TAB(20)F$(27)
  1512. 15200  IF Z$=F$(29)THEN PRINT TAB(20)F$(30)
  1513. 15210  IF Z$=F$(30)THEN PRINT TAB(20)F$(29)
  1514. 15220  IF Z$=F$(31)THEN PRINT TAB(20)F$(32)
  1515. 15230  IF Z$=F$(32)THEN PRINT TAB(20)F$(31)
  1516. 15240  IF Z$=F$(33)THEN PRINT TAB(20)F$(34)
  1517. 15250  IF Z$=F$(34)THEN PRINT TAB(20)F$(33)
  1518. 15260  IF Z$=F$(35)THEN PRINT TAB(20)F$(36)
  1519. 15270  IF Z$=F$(36)THEN PRINT TAB(20)F$(35)
  1520. 15280  IF Z$=F$(37)THEN PRINT TAB(20)F$(38)
  1521. 15290  IF Z$=F$(38)THEN PRINT TAB(20)F$(37)
  1522. 15300  IF Z$=F$(39)THEN PRINT TAB(20)F$(40)
  1523. 15310  IF Z$=F$(40)THEN PRINT TAB(20)F$(39)
  1524. 15320  IF Z$=F$(41)THEN PRINT TAB(20)F$(42)
  1525. 15330  IF Z$=F$(42)THEN PRINT TAB(20)F$(41)
  1526. 15340  IF Z$=F$(43)THEN PRINT TAB(20)F$(44)
  1527. 15350  IF Z$=F$(44)THEN PRINT TAB(20)F$(43)
  1528. 15360  IF Z$=F$(45)THEN PRINT TAB(20)F$(46)
  1529. 15370  IF Z$=F$(46)THEN PRINT TAB(20)F$(45)
  1530. 15380  IF Z$=F$(47)THEN PRINT TAB(20)F$(48)
  1531. 15390  IF Z$=F$(48)THEN PRINT TAB(20)F$(47)
  1532. 15400  IF Z$=F$(49)THEN PRINT TAB(20)F$(50)
  1533. 15410  IF Z$=F$(50)THEN PRINT TAB(20)F$(49)
  1534. 15420  IF Z$=F$(51)THEN PRINT TAB(20)F$(52)
  1535. 15430  IF Z$=F$(52)THEN PRINT TAB(20)F$(51)
  1536. 15440  IF Z$=F$(53)THEN PRINT TAB(20)F$(54)
  1537. 15450  IF Z$=F$(54)THEN PRINT TAB(20)F$(53)
  1538. 15460  IF Z$=F$(55)THEN PRINT TAB(20)F$(56)
  1539. 15470  IF Z$=F$(56)THEN PRINT TAB(20)F$(55)
  1540. 15480  IF Z$=F$(57)THEN PRINT TAB(20)F$(58)
  1541. 15490  IF Z$=F$(58)THEN PRINT TAB(20)F$(57)
  1542. 15500  IF Z$=F$(59)THEN PRINT TAB(20)F$(60)
  1543. 15510  IF Z$=F$(60)THEN PRINT TAB(20)F$(59)
  1544. 15520  IF Z$=F$(61)THEN PRINT TAB(20)F$(62)
  1545. 15530  IF Z$=F$(62)THEN PRINT TAB(20)F$(61)
  1546. 15540  IF Z$=F$(63)THEN PRINT TAB(20)F$(64)
  1547. 15550  IF Z$=F$(64)THEN PRINT TAB(20)F$(63)
  1548. 15560  IF Z$=F$(65)THEN PRINT TAB(20)F$(66)
  1549. 15570  IF Z$=F$(66)THEN PRINT TAB(20)F$(65)
  1550. 15580  IF Z$=F$(67)THEN PRINT TAB(20)F$(68)
  1551. 15590  IF Z$=F$(68)THEN PRINT TAB(20)F$(67)
  1552. 15600  IF Z$=F$(69)THEN PRINT TAB(20)F$(70)
  1553. 15610  IF Z$=F$(70)THEN PRINT TAB(20)F$(69)
  1554. 15620  IF Z$=F$(71)THEN PRINT TAB(20)F$(72)
  1555. 15630  IF Z$=F$(72)THEN PRINT TAB(20)F$(71)
  1556. 15640  IF Z$=F$(73)THEN PRINT TAB(20)F$(74)
  1557. 15650  IF Z$=F$(74)THEN PRINT TAB(20)F$(73)
  1558. 15660  IF Z$=F$(75)THEN PRINT TAB(20)F$(76)
  1559. 15670  IF Z$=F$(76)THEN PRINT TAB(20)F$(75)
  1560. 15680  IF Z$=F$(77)THEN PRINT TAB(20)F$(78)
  1561. 15690  IF Z$=F$(78)THEN PRINT TAB(20)F$(77)
  1562. 15700  IF Z$=F$(79)THEN PRINT TAB(20)F$(80)
  1563. 15710  IF Z$=F$(80)THEN PRINT TAB(20)F$(79)
  1564. 15720  IF Z$=F$(81)THEN PRINT TAB(20)F$(82)
  1565. 15730  IF Z$=F$(82)THEN PRINT TAB(20)F$(81)
  1566. 15740  IF Z$=F$(83)THEN PRINT TAB(20)F$(84)
  1567. 15750  IF Z$=F$(84)THEN PRINT TAB(20)F$(83)
  1568. 15760  IF Z$=F$(85)THEN PRINT TAB(20)F$(86)
  1569. 15770  IF Z$=F$(86)THEN PRINT TAB(20)F$(85)
  1570. 15780  IF Z$=F$(87)THEN PRINT TAB(20)F$(88)
  1571. 15790  IF Z$=F$(88)THEN PRINT TAB(20)F$(87)
  1572. 15800  IF Z$=F$(89)THEN PRINT TAB(20)F$(90)
  1573. 15810  IF Z$=F$(90)THEN PRINT TAB(20)F$(89)
  1574. 15820  IF Z$=F$(91)THEN PRINT TAB(20)F$(92)
  1575. 15830  IF Z$=F$(92)THEN PRINT TAB(20)F$(91)
  1576. 15840  IF Z$=F$(93)THEN PRINT TAB(20)F$(94)
  1577. 15850  IF Z$=F$(94)THEN PRINT TAB(20)F$(93)
  1578. 15860  IF Z$=F$(95)THEN PRINT TAB(20)F$(96)
  1579. 15870  IF Z$=F$(96)THEN PRINT TAB(20)F$(95)
  1580. 15880  IF Z$=F$(97)THEN PRINT TAB(20)F$(98)
  1581. 15890  IF Z$=F$(98)THEN PRINT TAB(20)F$(97)
  1582. 15900  IF Z$=G$(1)THEN PRINT TAB(20)G$(2)
  1583. 15910  IF Z$=G$(2)THEN PRINT TAB(20)G$(1)
  1584. 15920  IF Z$=G$(3)THEN PRINT TAB(20)G$(4)
  1585. 15930  IF Z$=G$(4)THEN PRINT TAB(20)G$(3)
  1586. 15940  IF Z$=G$(5)THEN PRINT TAB(20)G$(6)
  1587. 15950  IF Z$=G$(6)THEN PRINT TAB(20)G$(5)
  1588. 15960  IF Z$=G$(7)THEN PRINT TAB(20)G$(8)
  1589. 15970  IF Z$=G$(8)THEN PRINT TAB(20)G$(7)
  1590. 15980  IF Z$=G$(9)THEN PRINT TAB(20)G$(10)
  1591. 15990  IF Z$=G$(10)THEN PRINT TAB(20)G$(9)
  1592. 16000  IF Z$=G$(11)THEN PRINT TAB(20)G$(12)
  1593. 16010  IF Z$=G$(12)THEN PRINT TAB(20)G$(11)
  1594. 16020  IF Z$=G$(13)THEN PRINT TAB(20)G$(14)
  1595. 16030  IF Z$=G$(14)THEN PRINT TAB(20)G$(13)
  1596. 16040  IF Z$=G$(15)THEN PRINT TAB(20)G$(16)
  1597. 16050  IF Z$=G$(16)THEN PRINT TAB(20)G$(15)
  1598. 16060  IF Z$=G$(17)THEN PRINT TAB(20)G$(18)
  1599. 16070  IF Z$=G$(18)THEN PRINT TAB(20)G$(17)
  1600. 16080  IF Z$=G$(19)THEN PRINT TAB(20)G$(20)
  1601. 16090  IF Z$=G$(20)THEN PRINT TAB(20)G$(19)
  1602. 16100  IF Z$=G$(21)THEN PRINT TAB(20)G$(22)
  1603. 16110  IF Z$=G$(22)THEN PRINT TAB(20)G$(21)
  1604. 16120  IF Z$=G$(23)THEN PRINT TAB(20)G$(24)
  1605. 16130  IF Z$=G$(24)THEN PRINT TAB(20)G$(23)
  1606. 16140  IF Z$=G$(25)THEN PRINT TAB(20)G$(26)
  1607. 16150  IF Z$=G$(26)THEN PRINT TAB(20)G$(25)
  1608. 16160  IF Z$=G$(27)THEN PRINT TAB(20)G$(28)
  1609. 16170  IF Z$=G$(28)THEN PRINT TAB(20)G$(27)
  1610. 16180  IF Z$=G$(29)THEN PRINT TAB(20)G$(30)
  1611. 16190  IF Z$=G$(30)THEN PRINT TAB(20)G$(29)
  1612. 16200  IF Z$=G$(31)THEN PRINT TAB(20)G$(32)
  1613. 16210  IF Z$=G$(32)THEN PRINT TAB(20)G$(31)
  1614. 16220  IF Z$=G$(33)THEN PRINT TAB(20)G$(34)
  1615. 16230  IF Z$=G$(34)THEN PRINT TAB(20)G$(33)
  1616. 16240  IF Z$=G$(35)THEN PRINT TAB(20)G$(36)
  1617. 16250  IF Z$=G$(36)THEN PRINT TAB(20)G$(35)
  1618. 16260  IF Z$=G$(37)THEN PRINT TAB(20)G$(38)
  1619. 16270  IF Z$=G$(38)THEN PRINT TAB(20)G$(37)
  1620. 16280  IF Z$=G$(39)THEN PRINT TAB(20)G$(40)
  1621. 16290  IF Z$=G$(40)THEN PRINT TAB(20)G$(39)
  1622. 16300  IF Z$=G$(41)THEN PRINT TAB(20)G$(42)
  1623. 16310  IF Z$=G$(42)THEN PRINT TAB(20)G$(41)
  1624. 16320  IF Z$=G$(43)THEN PRINT TAB(20)G$(44)
  1625. 16330  IF Z$=G$(44)THEN PRINT TAB(20)G$(43)
  1626. 16340  IF Z$=G$(45)THEN PRINT TAB(20)G$(46)
  1627. 16350  IF Z$=G$(46)THEN PRINT TAB(20)G$(45)
  1628. 16360  IF Z$=G$(47)THEN PRINT TAB(20)G$(48)
  1629. 16370  IF Z$=G$(48)THEN PRINT TAB(20)G$(47)
  1630. 16380  IF Z$=G$(49)THEN PRINT TAB(20)G$(50)
  1631. 16390  IF Z$=G$(50)THEN PRINT TAB(20)G$(49)
  1632. 16400  IF Z$=G$(51)THEN PRINT TAB(20)G$(52)
  1633. 16410  IF Z$=G$(52)THEN PRINT TAB(20)G$(51)
  1634. 16420  IF Z$=G$(53)THEN PRINT TAB(20)G$(54)
  1635. 16430  IF Z$=G$(54)THEN PRINT TAB(20)G$(53)
  1636. 16440  IF Z$=G$(55)THEN PRINT TAB(20)G$(56)
  1637. 16450  IF Z$=G$(56)THEN PRINT TAB(20)G$(55)
  1638. 16460  IF Z$=G$(57)THEN PRINT TAB(20)G$(58)
  1639. 16470  IF Z$=G$(58)THEN PRINT TAB(20)G$(57)
  1640. 16480  IF Z$=G$(59)THEN PRINT TAB(20)G$(60)
  1641. 16490  IF Z$=G$(60)THEN PRINT TAB(20)G$(59)
  1642. 16500  IF Z$=G$(61)THEN PRINT TAB(20)G$(62)
  1643. 16510  IF Z$=G$(62)THEN PRINT TAB(20)G$(61)
  1644. 16520  IF Z$=G$(63)THEN PRINT TAB(20)G$(64)
  1645. 16530  IF Z$=G$(64)THEN PRINT TAB(20)G$(63)
  1646. 16540  IF Z$=G$(65)THEN PRINT TAB(20)G$(66)
  1647. 16550  IF Z$=G$(66)THEN PRINT TAB(20)G$(65)
  1648. 16560  IF Z$=G$(67)THEN PRINT TAB(20)G$(68)
  1649. 16570  IF Z$=G$(68)THEN PRINT TAB(20)G$(67)
  1650. 16580  IF Z$=G$(69)THEN PRINT TAB(20)G$(70)
  1651. 16590  IF Z$=G$(70)THEN PRINT TAB(20)G$(69)
  1652. 16600  IF Z$=G$(71)THEN PRINT TAB(20)G$(72)
  1653. 16610  IF Z$=G$(72)THEN PRINT TAB(20)G$(71)
  1654. 16620  IF Z$=G$(73)THEN PRINT TAB(20)G$(74)
  1655. 16630  IF Z$=G$(74)THEN PRINT TAB(20)G$(73)
  1656. 16640  IF Z$=G$(75)THEN PRINT TAB(20)G$(76)
  1657. 16650  IF Z$=G$(76)THEN PRINT TAB(20)G$(75)
  1658. 16660  IF Z$=G$(77)THEN PRINT TAB(20)G$(78)
  1659. 16670  IF Z$=G$(78)THEN PRINT TAB(20)G$(77)
  1660. 16680  IF Z$=G$(79)THEN PRINT TAB(20)G$(80)
  1661. 16690  IF Z$=G$(80)THEN PRINT TAB(20)G$(79)
  1662. 16700  IF Z$=G$(81)THEN PRINT TAB(20)G$(82)
  1663. 16710  IF Z$=G$(82)THEN PRINT TAB(20)G$(81)
  1664. 16720  IF Z$=G$(83)THEN PRINT TAB(20)G$(84)
  1665. 16730  IF Z$=G$(84)THEN PRINT TAB(20)G$(83)
  1666. 16740  IF Z$=G$(85)THEN PRINT TAB(20)G$(86)
  1667. 16750  IF Z$=G$(86)THEN PRINT TAB(20)G$(85)
  1668. 16760  IF Z$=G$(87)THEN PRINT TAB(20)G$(88)
  1669. 16770  IF Z$=G$(88)THEN PRINT TAB(20)G$(87)
  1670. 16780  IF Z$=G$(89)THEN PRINT TAB(20)G$(90)
  1671. 16790  IF Z$=G$(90)THEN PRINT TAB(20)G$(89)
  1672. 16800  IF Z$=G$(91)THEN PRINT TAB(20)G$(92)
  1673. 16810  IF Z$=G$(92)THEN PRINT TAB(20)G$(91)
  1674. 16820  IF Z$=G$(93)THEN PRINT TAB(20)G$(94)
  1675. 16830  IF Z$=G$(94)THEN PRINT TAB(20)G$(93)
  1676. 16840  IF Z$=G$(95)THEN PRINT TAB(20)G$(96)
  1677. 16850  IF Z$=G$(96)THEN PRINT TAB(20)G$(95)
  1678. 16860  IF Z$=G$(97)THEN PRINT TAB(20)G$(98)
  1679. 16870  IF Z$=G$(98)THEN PRINT TAB(20)G$(97)
  1680. 16880  IF Z$=H$(1)THEN PRINT TAB(20)H$(2)
  1681. 16890  IF Z$=H$(2)THEN PRINT TAB(20)H$(1)
  1682. 16900  IF Z$=H$(3)THEN PRINT TAB(20)H$(4)
  1683. 16910  IF Z$=H$(4)THEN PRINT TAB(20)H$(3)
  1684. 16920  IF Z$=H$(5)THEN PRINT TAB(20)H$(6)
  1685. 16930  IF Z$=H$(6)THEN PRINT TAB(20)H$(5)
  1686. 16940  IF Z$=H$(7)THEN PRINT TAB(20)H$(8)
  1687. 16950  IF Z$=H$(8)THEN PRINT TAB(20)H$(7)
  1688. 16960  IF Z$=H$(9)THEN PRINT TAB(20)H$(10)
  1689. 16970  IF Z$=H$(10)THEN PRINT TAB(20)H$(9)
  1690. 16980  IF Z$=H$(11)THEN PRINT TAB(20)H$(12)
  1691. 16990  IF Z$=H$(12)THEN PRINT TAB(20)H$(11)
  1692. 17000  IF Z$=H$(13)THEN PRINT TAB(20)H$(14)
  1693. 17010  IF Z$=H$(14)THEN PRINT TAB(20)H$(13)
  1694. 17020  IF Z$=H$(15)THEN PRINT TAB(20)H$(16)
  1695. 17030  IF Z$=H$(16)THEN PRINT TAB(20)H$(15)
  1696. 17040  IF Z$=H$(17)THEN PRINT TAB(20)H$(18)
  1697. 17050  IF Z$=H$(18)THEN PRINT TAB(20)H$(17)
  1698. 17060  IF Z$=H$(19)THEN PRINT TAB(20)H$(20)
  1699. 17070  IF Z$=H$(20)THEN PRINT TAB(20)H$(19)
  1700. 17080  IF Z$=H$(21)THEN PRINT TAB(20)H$(22)
  1701. 17090  IF Z$=H$(22)THEN PRINT TAB(20)H$(21)
  1702. 17100  IF Z$=H$(23)THEN PRINT TAB(20)H$(24)
  1703. 17110  IF Z$=H$(24)THEN PRINT TAB(20)H$(23)
  1704. 17120  IF Z$=H$(25)THEN PRINT TAB(20)H$(26)
  1705. 17130  IF Z$=H$(26)THEN PRINT TAB(20)H$(25)
  1706. 17140  IF Z$=H$(27)THEN PRINT TAB(20)H$(28)
  1707. 17150  IF Z$=H$(28)THEN PRINT TAB(20)H$(27)
  1708. 17160  IF Z$=H$(29)THEN PRINT TAB(20)H$(30)
  1709. 17170  IF Z$=H$(30)THEN PRINT TAB(20)H$(29)
  1710. 17180  IF Z$=H$(31)THEN PRINT TAB(20)H$(32)
  1711. 17190  IF Z$=H$(32)THEN PRINT TAB(20)H$(31)
  1712. 17200  IF Z$=H$(33)THEN PRINT TAB(20)H$(34)
  1713. 17210  IF Z$=H$(34)THEN PRINT TAB(20)H$(33)
  1714. 17220  IF Z$=H$(35)THEN PRINT TAB(20)H$(36)
  1715. 17230  IF Z$=H$(36)THEN PRINT TAB(20)H$(35)
  1716. 17240  IF Z$=H$(37)THEN PRINT TAB(20)H$(38)
  1717. 17250  IF Z$=H$(38)THEN PRINT TAB(20)H$(37)
  1718. 17260  IF Z$=H$(39)THEN PRINT TAB(20)H$(40)
  1719. 17270  IF Z$=H$(40)THEN PRINT TAB(20)H$(39)
  1720. 17280  IF Z$=H$(41)THEN PRINT TAB(20)H$(42)
  1721. 17290  IF Z$=H$(42)THEN PRINT TAB(20)H$(41)
  1722. 17300  IF Z$=H$(43)THEN PRINT TAB(20)H$(44)
  1723. 17310  IF Z$=H$(44)THEN PRINT TAB(20)H$(43)
  1724. 17320  IF Z$=H$(45)THEN PRINT TAB(20)H$(46)
  1725. 17330  IF Z$=H$(46)THEN PRINT TAB(20)H$(45)
  1726. 17340  IF Z$=H$(47)THEN PRINT TAB(20)H$(48)
  1727. 17350  IF Z$=H$(48)THEN PRINT TAB(20)H$(47)
  1728. 17360  IF Z$=H$(49)THEN PRINT TAB(20)H$(50)
  1729. 17370  IF Z$=H$(50)THEN PRINT TAB(20)H$(49)
  1730. 17380  IF Z$=H$(51)THEN PRINT TAB(20)H$(52)
  1731. 17390  IF Z$=H$(52)THEN PRINT TAB(20)H$(51)
  1732. 17400  IF Z$=H$(53)THEN PRINT TAB(20)H$(54)
  1733. 17410  IF Z$=H$(54)THEN PRINT TAB(20)H$(53)
  1734. 17420  IF Z$=H$(55)THEN PRINT TAB(20)H$(56)
  1735. 17430  IF Z$=H$(56)THEN PRINT TAB(20)H$(55)
  1736. 17440  IF Z$=H$(57)THEN PRINT TAB(20)H$(58)
  1737. 17450  IF Z$=H$(58)THEN PRINT TAB(20)H$(57)
  1738. 17460  IF Z$=H$(59)THEN PRINT TAB(20)H$(60)
  1739. 17470  IF Z$=H$(60)THEN PRINT TAB(20)H$(59)
  1740. 17480  IF Z$=H$(61)THEN PRINT TAB(20)H$(62)
  1741. 17490  IF Z$=H$(62)THEN PRINT TAB(20)H$(61)
  1742. 17500  IF Z$=H$(63)THEN PRINT TAB(20)H$(64)
  1743. 17510  IF Z$=H$(64)THEN PRINT TAB(20)H$(63)
  1744. 17520  IF Z$=H$(65)THEN PRINT TAB(20)H$(66)
  1745. 17530  IF Z$=H$(66)THEN PRINT TAB(20)H$(65)
  1746. 17540  IF Z$=H$(67)THEN PRINT TAB(20)H$(68)
  1747. 17550  IF Z$=H$(68)THEN PRINT TAB(20)H$(67)
  1748. 17560  IF Z$=H$(69)THEN PRINT TAB(20)H$(70)
  1749. 17570  IF Z$=H$(70)THEN PRINT TAB(20)H$(69)
  1750. 17580  IF Z$=H$(71)THEN PRINT TAB(20)H$(72)
  1751. 17590  IF Z$=H$(72)THEN PRINT TAB(20)H$(71)
  1752. 17600  IF Z$=H$(73)THEN PRINT TAB(20)H$(74)
  1753. 17610  IF Z$=H$(74)THEN PRINT TAB(20)H$(73)
  1754. 17620  IF Z$=H$(75)THEN PRINT TAB(20)H$(76)
  1755. 17630  IF Z$=H$(76)THEN PRINT TAB(20)H$(75)
  1756. 17640  IF Z$=H$(77)THEN PRINT TAB(20)H$(78)
  1757. 17650  IF Z$=H$(78)THEN PRINT TAB(20)H$(77)
  1758. 17660  IF Z$=H$(79)THEN PRINT TAB(20)H$(80)
  1759. 17670  IF Z$=H$(80)THEN PRINT TAB(20)H$(79)
  1760. 17680  IF Z$=H$(81)THEN PRINT TAB(20)H$(82)
  1761. 17690  IF Z$=H$(82)THEN PRINT TAB(20)H$(81)
  1762. 17700  IF Z$=H$(83)THEN PRINT TAB(20)H$(84)
  1763. 17710  IF Z$=H$(84)THEN PRINT TAB(20)H$(83)
  1764. 17720  IF Z$=H$(85)THEN PRINT TAB(20)H$(86)
  1765. 17730  IF Z$=H$(86)THEN PRINT TAB(20)H$(85)
  1766. 17740  IF Z$=H$(87)THEN PRINT TAB(20)H$(88)
  1767. 17750  IF Z$=H$(88)THEN PRINT TAB(20)H$(87)
  1768. 17760  IF Z$=H$(89)THEN PRINT TAB(20)H$(90)
  1769. 17770  IF Z$=H$(90)THEN PRINT TAB(20)H$(89)
  1770. 17780  IF Z$=H$(91)THEN PRINT TAB(20)H$(92)
  1771. 17790  IF Z$=H$(92)THEN PRINT TAB(20)H$(91)
  1772. 17800  IF Z$=H$(93)THEN PRINT TAB(20)H$(94)
  1773. 17810  IF Z$=H$(94)THEN PRINT TAB(20)H$(93)
  1774. 17820  IF Z$=H$(95)THEN PRINT TAB(20)H$(96)
  1775. 17830  IF Z$=H$(96)THEN PRINT TAB(20)H$(95)
  1776. 17840  IF Z$=H$(97)THEN PRINT TAB(20)H$(98)
  1777. 17850  IF Z$=H$(98)THEN PRINT TAB(20)H$(97)
  1778. 17860  IF Z$=I$(1)THEN PRINT TAB(20)I$(2)
  1779. 17870  IF Z$=I$(2)THEN PRINT TAB(20)I$(1)
  1780. 17880  IF Z$=I$(3)THEN PRINT TAB(20)I$(4)
  1781. 17890  IF Z$=I$(4)THEN PRINT TAB(20)I$(3)
  1782. 17900  IF Z$=I$(5)THEN PRINT TAB(20)I$(6)
  1783. 17910  IF Z$=I$(6)THEN PRINT TAB(20)I$(5)
  1784. 17920  IF Z$=I$(7)THEN PRINT TAB(20)I$(8)
  1785. 17930  IF Z$=I$(8)THEN PRINT TAB(20)I$(7)
  1786. 17940  IF Z$=I$(9)THEN PRINT TAB(20)I$(10)
  1787. 17950  IF Z$=I$(10)THEN PRINT TAB(20)I$(9)
  1788. 17960  IF Z$=I$(11)THEN PRINT TAB(20)I$(12)
  1789. 17970  IF Z$=I$(12)THEN PRINT TAB(20)I$(11)
  1790. 17980  IF Z$=I$(13)THEN PRINT TAB(20)I$(14)
  1791. 17990  IF Z$=I$(14)THEN PRINT TAB(20)I$(13)
  1792. 18000  IF Z$=I$(15)THEN PRINT TAB(20)I$(16)
  1793. 18010  IF Z$=I$(16)THEN PRINT TAB(20)I$(15)
  1794. 18020  IF Z$=I$(17)THEN PRINT TAB(20)I$(18)
  1795. 18030  IF Z$=I$(18)THEN PRINT TAB(20)I$(17)
  1796. 18040  IF Z$=I$(19)THEN PRINT TAB(20)I$(20)
  1797. 18050  IF Z$=I$(20)THEN PRINT TAB(20)I$(19)
  1798. 18060  IF Z$=I$(21)THEN PRINT TAB(20)I$(22)
  1799. 18070  IF Z$=I$(22)THEN PRINT TAB(20)I$(21)
  1800. 18080  IF Z$=I$(23)THEN PRINT TAB(20)I$(24)
  1801. 18090  IF Z$=I$(24)THEN PRINT TAB(20)I$(23)
  1802. 18100  IF Z$=I$(25)THEN PRINT TAB(20)I$(26)
  1803. 18110  IF Z$=I$(26)THEN PRINT TAB(20)I$(25)
  1804. 18120  IF Z$=I$(27)THEN PRINT TAB(20)I$(28)
  1805. 18130  IF Z$=I$(28)THEN PRINT TAB(20)I$(27)
  1806. 18140  IF Z$=I$(29)THEN PRINT TAB(20)I$(30)
  1807. 18150  IF Z$=I$(30)THEN PRINT TAB(20)I$(29)
  1808. 18160  IF Z$=I$(31)THEN PRINT TAB(20)I$(32)
  1809. 18170  IF Z$=I$(32)THEN PRINT TAB(20)I$(31)
  1810. 18180  IF Z$=I$(33)THEN PRINT TAB(20)I$(34)
  1811. 18190  IF Z$=I$(34)THEN PRINT TAB(20)I$(33)
  1812. 18200  IF Z$=I$(35)THEN PRINT TAB(20)I$(36)
  1813. 18210  IF Z$=I$(36)THEN PRINT TAB(20)I$(35)
  1814. 18220  IF Z$=I$(37)THEN PRINT TAB(20)I$(38)
  1815. 18230  IF Z$=I$(38)THEN PRINT TAB(20)I$(37)
  1816. 18240  IF Z$=I$(39)THEN PRINT TAB(20)I$(40)
  1817. 18250  IF Z$=I$(40)THEN PRINT TAB(20)I$(39)
  1818. 18260  IF Z$=I$(41)THEN PRINT TAB(20)I$(42)
  1819. 18270  IF Z$=I$(42)THEN PRINT TAB(20)I$(41)
  1820. 18280  IF Z$=I$(43)THEN PRINT TAB(20)I$(44)
  1821. 18290  IF Z$=I$(44)THEN PRINT TAB(20)I$(43)
  1822. 18300  IF Z$=I$(45)THEN PRINT TAB(20)I$(46)
  1823. 18310  IF Z$=I$(46)THEN PRINT TAB(20)I$(45)
  1824. 18320  IF Z$=I$(47)THEN PRINT TAB(20)I$(48)
  1825. 18330  IF Z$=I$(48)THEN PRINT TAB(20)I$(47)
  1826. 18340  IF Z$=I$(49)THEN PRINT TAB(20)I$(50)
  1827. 18350  IF Z$=I$(50)THEN PRINT TAB(20)I$(49)
  1828. 18360  IF Z$=I$(51)THEN PRINT TAB(20)I$(52)
  1829. 18370  IF Z$=I$(52)THEN PRINT TAB(20)I$(51)
  1830. 18380  IF Z$=I$(53)THEN PRINT TAB(20)I$(54)
  1831. 18390  IF Z$=I$(54)THEN PRINT TAB(20)I$(53)
  1832. 18400  IF Z$=I$(55)THEN PRINT TAB(20)I$(56)
  1833. 18410  IF Z$=I$(56)THEN PRINT TAB(20)I$(55)
  1834. 18420  IF Z$=I$(57)THEN PRINT TAB(20)I$(58)
  1835. 18430  IF Z$=I$(58)THEN PRINT TAB(20)I$(57)
  1836. 18440  IF Z$=I$(59)THEN PRINT TAB(20)I$(60)
  1837. 18450  IF Z$=I$(60)THEN PRINT TAB(20)I$(59)
  1838. 18460  IF Z$=I$(61)THEN PRINT TAB(20)I$(62)
  1839. 18470  IF Z$=I$(62)THEN PRINT TAB(20)I$(61)
  1840. 18480  IF Z$=I$(63)THEN PRINT TAB(20)I$(64)
  1841. 18490  IF Z$=I$(64)THEN PRINT TAB(20)I$(63)
  1842. 18500  IF Z$=I$(65)THEN PRINT TAB(20)I$(66)
  1843. 18510  IF Z$=I$(66)THEN PRINT TAB(20)I$(65)
  1844. 18520  IF Z$=I$(67)THEN PRINT TAB(20)I$(68)
  1845. 18530  IF Z$=I$(68)THEN PRINT TAB(20)I$(67)
  1846. 18540  IF Z$=I$(69)THEN PRINT TAB(20)I$(70)
  1847. 18550  IF Z$=I$(70)THEN PRINT TAB(20)I$(69)
  1848. 18560  IF Z$=I$(71)THEN PRINT TAB(20)I$(72)
  1849. 18570  IF Z$=I$(72)THEN PRINT TAB(20)I$(71)
  1850. 18580  IF Z$=I$(73)THEN PRINT TAB(20)I$(74)
  1851. 18590  IF Z$=I$(74)THEN PRINT TAB(20)I$(73)
  1852. 18600  IF Z$=I$(75)THEN PRINT TAB(20)I$(76)
  1853. 18610  IF Z$=I$(76)THEN PRINT TAB(20)I$(75)
  1854. 18620  IF Z$=I$(77)THEN PRINT TAB(20)I$(78)
  1855. 18630  IF Z$=I$(78)THEN PRINT TAB(20)I$(77)
  1856. 18640  IF Z$=I$(79)THEN PRINT TAB(20)I$(80)
  1857. 18650  IF Z$=I$(80)THEN PRINT TAB(20)I$(79)
  1858. 18660  IF Z$=I$(81)THEN PRINT TAB(20)I$(82)
  1859. 18670  IF Z$=I$(82)THEN PRINT TAB(20)I$(81)
  1860. 18680  IF Z$=I$(83)THEN PRINT TAB(20)I$(84)
  1861. 18690  IF Z$=I$(84)THEN PRINT TAB(20)I$(83)
  1862. 18700  IF Z$=I$(85)THEN PRINT TAB(20)I$(86)
  1863. 18710  IF Z$=I$(86)THEN PRINT TAB(20)I$(85)
  1864. 18720  IF Z$=I$(87)THEN PRINT TAB(20)I$(88)
  1865. 18730  IF Z$=I$(88)THEN PRINT TAB(20)I$(87)
  1866. 18740  IF Z$=I$(89)THEN PRINT TAB(20)I$(90)
  1867. 18750  IF Z$=I$(90)THEN PRINT TAB(20)I$(89)
  1868. 18760  IF Z$=I$(91)THEN PRINT TAB(20)I$(92)
  1869. 18770  IF Z$=I$(92)THEN PRINT TAB(20)I$(91)
  1870. 18780  IF Z$=I$(93)THEN PRINT TAB(20)I$(94)
  1871. 18790  IF Z$=I$(94)THEN PRINT TAB(20)I$(93)
  1872. 18800  IF Z$=I$(95)THEN PRINT TAB(20)I$(96)
  1873. 18810  IF Z$=I$(96)THEN PRINT TAB(20)I$(95)
  1874. 18820  IF Z$=I$(97)THEN PRINT TAB(20)I$(98)
  1875. 18830  IF Z$=I$(98)THEN PRINT TAB(20)I$(97)
  1876. 18840  IF Z$=J$(1)THEN PRINT TAB(20)J$(2)
  1877. 18850  IF Z$=J$(2)THEN PRINT TAB(20)J$(1)
  1878. 18860  IF Z$=J$(3)THEN PRINT TAB(20)J$(4)
  1879. 18870  IF Z$=J$(4)THEN PRINT TAB(20)J$(3)
  1880. 18880  IF Z$=J$(5)THEN PRINT TAB(20)J$(6)
  1881. 18890  IF Z$=J$(6)THEN PRINT TAB(20)J$(5)
  1882. 18900  IF Z$=J$(7)THEN PRINT TAB(20)J$(8)
  1883. 18910  IF Z$=J$(8)THEN PRINT TAB(20)J$(7)
  1884. 18920  IF Z$=J$(9)THEN PRINT TAB(20)J$(10)
  1885. 18930  IF Z$=J$(10)THEN PRINT TAB(20)J$(9)
  1886. 18940  IF Z$=J$(11)THEN PRINT TAB(20)J$(12)
  1887. 18950  IF Z$=J$(12)THEN PRINT TAB(20)J$(11)
  1888. 18960  IF Z$=J$(13)THEN PRINT TAB(20)J$(14)
  1889. 18970  IF Z$=J$(14)THEN PRINT TAB(20)J$(13)
  1890. 18980  IF Z$=J$(15)THEN PRINT TAB(20)J$(16)
  1891. 18990  IF Z$=J$(16)THEN PRINT TAB(20)J$(15)
  1892. 19000  IF Z$=J$(17)THEN PRINT TAB(20)J$(18)
  1893. 19010  IF Z$=J$(18)THEN PRINT TAB(20)J$(17)
  1894. 19020  IF Z$=J$(19)THEN PRINT TAB(20)J$(20)
  1895. 19030  IF Z$=J$(20)THEN PRINT TAB(20)J$(19)
  1896. 19040  IF Z$=J$(21)THEN PRINT TAB(20)J$(22)
  1897. 19050  IF Z$=J$(22)THEN PRINT TAB(20)J$(21)
  1898. 19060  IF Z$=J$(23)THEN PRINT TAB(20)J$(24)
  1899. 19070  IF Z$=J$(24)THEN PRINT TAB(20)J$(23)
  1900. 19080  IF Z$=J$(25)THEN PRINT TAB(20)J$(26)
  1901. 19090  IF Z$=J$(26)THEN PRINT TAB(20)J$(25)
  1902. 19100  IF Z$=J$(27)THEN PRINT TAB(20)J$(28)
  1903. 19110  IF Z$=J$(28)THEN PRINT TAB(20)J$(27)
  1904. 19120  IF Z$=J$(29)THEN PRINT TAB(20)J$(30)
  1905. 19130  IF Z$=J$(30)THEN PRINT TAB(20)J$(29)
  1906. 19140  IF Z$=J$(31)THEN PRINT TAB(20)J$(32)
  1907. 19150  IF Z$=J$(32)THEN PRINT TAB(20)J$(31)
  1908. 19160  IF Z$=J$(33)THEN PRINT TAB(20)J$(34)
  1909. 19170  IF Z$=J$(34)THEN PRINT TAB(20)J$(33)
  1910. 19180  IF Z$=J$(35)THEN PRINT TAB(20)J$(36)
  1911. 19190  IF Z$=J$(36)THEN PRINT TAB(20)J$(35)
  1912. 19200  IF Z$=J$(37)THEN PRINT TAB(20)J$(38)
  1913. 19210  IF Z$=J$(38)THEN PRINT TAB(20)J$(37)
  1914. 19220  IF Z$=J$(39)THEN PRINT TAB(20)J$(40)
  1915. 19230  IF Z$=J$(40)THEN PRINT TAB(20)J$(39)
  1916. 19240  IF Z$=J$(41)THEN PRINT TAB(20)J$(42)
  1917. 19250  IF Z$=J$(42)THEN PRINT TAB(20)J$(41)
  1918. 19260  IF Z$=J$(43)THEN PRINT TAB(20)J$(44)
  1919. 19270  IF Z$=J$(44)THEN PRINT TAB(20)J$(43)
  1920. 19280  IF Z$=J$(45)THEN PRINT TAB(20)J$(46)
  1921. 19290  IF Z$=J$(46)THEN PRINT TAB(20)J$(45)
  1922. 19300  IF Z$=J$(47)THEN PRINT TAB(20)J$(48)
  1923. 19310  IF Z$=J$(48)THEN PRINT TAB(20)J$(47)
  1924. 19320  IF Z$=J$(49)THEN PRINT TAB(20)J$(50)
  1925. 19330  IF Z$=J$(50)THEN PRINT TAB(20)J$(49)
  1926. 19340  IF Z$=J$(51)THEN PRINT TAB(20)J$(52)
  1927. 19350  IF Z$=J$(52)THEN PRINT TAB(20)J$(51)
  1928. 19360  IF Z$=J$(53)THEN PRINT TAB(20)J$(54)
  1929. 19370  IF Z$=J$(54)THEN PRINT TAB(20)J$(53)
  1930. 19380  IF Z$=J$(55)THEN PRINT TAB(20)J$(56)
  1931. 19390  IF Z$=J$(56)THEN PRINT TAB(20)J$(55)
  1932. 19400  IF Z$=J$(57)THEN PRINT TAB(20)J$(58)
  1933. 19410  IF Z$=J$(58)THEN PRINT TAB(20)J$(57)
  1934. 19420  IF Z$=J$(59)THEN PRINT TAB(20)J$(60)
  1935. 19430  IF Z$=J$(60)THEN PRINT TAB(20)J$(59)
  1936. 19440  IF Z$=J$(61)THEN PRINT TAB(20)J$(62)
  1937. 19450  IF Z$=J$(62)THEN PRINT TAB(20)J$(61)
  1938. 19460  IF Z$=J$(63)THEN PRINT TAB(20)J$(64)
  1939. 19470  IF Z$=J$(64)THEN PRINT TAB(20)J$(63)
  1940. 19480  IF Z$=J$(65)THEN PRINT TAB(20)J$(66)
  1941. 19490  IF Z$=J$(66)THEN PRINT TAB(20)J$(65)
  1942. 19500  IF Z$=J$(67)THEN PRINT TAB(20)J$(68)
  1943. 19510  IF Z$=J$(68)THEN PRINT TAB(20)J$(67)
  1944. 19520  IF Z$=J$(69)THEN PRINT TAB(20)J$(70)
  1945. 19530  IF Z$=J$(70)THEN PRINT TAB(20)J$(69)
  1946. 19540  IF Z$=J$(71)THEN PRINT TAB(20)J$(72)
  1947. 19550  IF Z$=J$(72)THEN PRINT TAB(20)J$(71)
  1948. 19560  IF Z$=J$(73)THEN PRINT TAB(20)J$(74)
  1949. 19570  IF Z$=J$(74)THEN PRINT TAB(20)J$(73)
  1950. 19580  IF Z$=J$(75)THEN PRINT TAB(20)J$(76)
  1951. 19590  IF Z$=J$(76)THEN PRINT TAB(20)J$(75)
  1952. 19600  IF Z$=J$(77)THEN PRINT TAB(20)J$(78)
  1953. 19610  IF Z$=J$(78)THEN PRINT TAB(20)J$(77)
  1954. 19620  IF Z$=J$(79)THEN PRINT TAB(20)J$(80)
  1955. 19630  IF Z$=J$(80)THEN PRINT TAB(20)J$(79)
  1956. 19640  IF Z$=J$(81)THEN PRINT TAB(20)J$(82)
  1957. 19650  IF Z$=J$(82)THEN PRINT TAB(20)J$(81)
  1958. 19660  IF Z$=J$(83)THEN PRINT TAB(20)J$(84)
  1959. 19670  IF Z$=J$(84)THEN PRINT TAB(20)J$(83)
  1960. 19680  IF Z$=J$(85)THEN PRINT TAB(20)J$(86)
  1961. 19690  IF Z$=J$(86)THEN PRINT TAB(20)J$(85)
  1962. 19700  IF Z$=J$(87)THEN PRINT TAB(20)J$(88)
  1963. 19710  IF Z$=J$(88)THEN PRINT TAB(20)J$(87)
  1964. 19720  IF Z$=J$(89)THEN PRINT TAB(20)J$(90)
  1965. 19730  IF Z$=J$(90)THEN PRINT TAB(20)J$(89)
  1966. 19740  IF Z$=J$(91)THEN PRINT TAB(20)J$(92)
  1967. 19750  IF Z$=J$(92)THEN PRINT TAB(20)J$(91)
  1968. 19760  IF Z$=J$(93)THEN PRINT TAB(20)J$(94)
  1969. 19770  IF Z$=J$(94)THEN PRINT TAB(20)J$(93)
  1970. 19780  IF Z$=J$(95)THEN PRINT TAB(20)J$(96)
  1971. 19790  IF Z$=J$(96)THEN PRINT TAB(20)J$(95)
  1972. 19800  IF Z$=J$(97)THEN PRINT TAB(20)J$(98)
  1973. 19810  IF Z$=J$(98)THEN PRINT TAB(20)J$(97)
  1974. 19816  FOR Y= 1 TO 100:IF Z$<> A$(Y) AND Z$<> B$(Y) AND Z$ <> C$(Y) AND Z$ <> D$(Y) AND Z$ <> E$(Y) AND Z$<> F$(Y) AND Z$ <> G$(Y) AND Z$ <> H$(Y) AND Z$<> I$(Y) AND Z$<> J$(Y) THEN NEXT:CHAIN"SPANISH.1",110
  1975. 19820  CHAIN "SPANISH.EXP",110
  1976.